Create site free
Форум Mapper720.Ru
Mapper720.Ru Четверг, 09 Фев 2012, 04:05
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 4 из 5«12345»
Модератор форума: La_Mafioza 
Форум » Софт, компы, технологии » Программерский » Delphi
Delphi
Chuwis720Дата: Вторник, 29 Дек 2009, 09:10 | Сообщение # 61
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Правильно понимаю. Скачал Дельфи 7 - все на месте))
ЗЫ. Не думал, что Дельфи 7 платный и требует лекарства... (хорошо хоть кряк был в архиве)

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
karpovmakДата: Вторник, 29 Дек 2009, 12:44 | Сообщение # 62
Генерал-лейтенант
Группа: Проверенные
Сообщений: 502
Награды: 2
Репутация: 11
Замечания: 0%
Статус: Offline
Во всех Delphi есть DCLSOCKET*.BPL. Отличаються они только цифрами на месте *



 
Chuwis720Дата: Вторник, 29 Дек 2009, 15:46 | Сообщение # 63
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Нет, у меня в Дельфи 10 лайт не было. Я искал. Пофиг, я уже Дельфи 7 скачал)))

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
Chuwis720Дата: Суббота, 09 Янв 2010, 20:18 | Сообщение # 64
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Кто нибудь знает, как завершать процессы? (если известно название процесса)

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
DEMOHДата: Суббота, 09 Янв 2010, 22:28 | Сообщение # 65
Генерал-лейтенант
Группа: Проверенные
Сообщений: 751
Награды: 0
Репутация: 19
Замечания: 0%
Статус: Offline
я знаю как через cmd, и в vb можно юзать cmd думаю в Delphi тоже, если узнаешь как юзать то команда taskkill /имя процеса
еще можешь в командную строку написать taskkill /? для вызова справки про эту каманду типо принудитильно не принудительно...


Start Source SDK
 
Chuwis720Дата: Воскресенье, 10 Янв 2010, 08:32 | Сообщение # 66
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Я вчера в гугле искал, там были какие то жуткие громоздкие коды о_О Значит, 1-2 операторами не обойтись?

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
karpovmakДата: Воскресенье, 10 Янв 2010, 14:04 | Сообщение # 67
Генерал-лейтенант
Группа: Проверенные
Сообщений: 502
Награды: 2
Репутация: 11
Замечания: 0%
Статус: Offline
1 оператором обойтись
Code
WinExec('taskill.exe ....', SW_HIDE);




 
Chuwis720Дата: Воскресенье, 10 Янв 2010, 19:33 | Сообщение # 68
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
karpovmak, не работает sad Я этот оператор вызываю кнопкой (OnClick), но реакции ноль...

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
karpovmakДата: Воскресенье, 10 Янв 2010, 21:17 | Сообщение # 69
Генерал-лейтенант
Группа: Проверенные
Сообщений: 502
Награды: 2
Репутация: 11
Замечания: 0%
Статус: Offline
тогда попробуй вместо SW_HIDE поставить SW_SHOWNORMAL

Добавлено (10 Янв 2010, 21:17)
---------------------------------------------

Code
uses TLHelp32

Code
function procsfuck(ExeFileName: string): integer;
const
   PROCESS_TERMINATE=$0001;
var
   ContinueLoop: BOOL;
   FSnapshotHandle: THandle;   
   FProcessEntry32: TProcessEntry32;
begin   
   result := 0;   

   FSnapshotHandle := CreateToolhelp32Snapshot   
                      (TH32CS_SNAPPROCESS, 0);   
   FProcessEntry32.dwSize := Sizeof(FProcessEntry32);   
   ContinueLoop := Process32First(FSnapshotHandle,   
                    FProcessEntry32);   

while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
          UpperCase(ExeFileName))   
or (UpperCase(FProcessEntry32.szExeFile) =
          UpperCase(ExeFileName))) then   
       Result := Integer(TerminateProcess(OpenProcess(   
                         PROCESS_TERMINATE, BOOL(0),   
                         FProcessEntry32.th32ProcessID), 0));
     ContinueLoop := Process32Next(FSnapshotHandle,
                    FProcessEntry32);   
end;
CloseHandle(FSnapshotHandle);
end;




 
Chuwis720Дата: Вторник, 12 Янв 2010, 15:20 | Сообщение # 70
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Вот это, возможно, будет посмешнее того блокнота...

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
Chuwis720Дата: Вторник, 13 Апр 2010, 18:59 | Сообщение # 71
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Возникла такая ситуация... Мне надо сделать так, чтоб при OnClose программы содержимое свойства Caption у компонента TLabel сохранялось в файл, а OnActivate главной формы читалась инфа из этого файла и TLabel'ам присваивались такие значения Caption, какие были в момент закрытия. Кто нибудь знает, как сие делать?

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
DoctorДата: Среда, 12 Май 2010, 16:52 | Сообщение # 72
Генерал-полковник
Группа: Проверенные
Сообщений: 1076
Награды: 2
Репутация: 27
Замечания: 0%
Статус: Offline
Ребят, я задумал написать прогу для управления и настройкой Source серверов. Где бы поискать учебники для такой работы?
 
DEMOHДата: Среда, 12 Май 2010, 19:52 | Сообщение # 73
Генерал-лейтенант
Группа: Проверенные
Сообщений: 751
Награды: 0
Репутация: 19
Замечания: 0%
Статус: Offline
Doctor, а чем тебе не нравится стандартный?



Start Source SDK
 
DoctorДата: Четверг, 13 Май 2010, 13:09 | Сообщение # 74
Генерал-полковник
Группа: Проверенные
Сообщений: 1076
Награды: 2
Репутация: 27
Замечания: 0%
Статус: Offline
Отмена по поиску.

DEMOH, дело в том, что можно сделать свою утилиту, которая поможет управлять не только стандартными функциями, но и другими плагинами. Тоесть удобства

 
karpovmakДата: Воскресенье, 04 Июл 2010, 10:46 | Сообщение # 75
Генерал-лейтенант
Группа: Проверенные
Сообщений: 502
Награды: 2
Репутация: 11
Замечания: 0%
Статус: Offline
Вот моя программа-прикол на дельфи.
--( СКАЧАТЬ )--
Типа бомба. В архива два файла - bombRED и bombBLUE - в зависимости от того, какой провод надо обрезать, чтобы обезвредить.
Просто переименуйте и подкиньте кому-нибудь в автозагрузку. Правда сама себя она из автозагрузки не сотрет.
Можно также использовать планировщик винды.



 
Chuwis720Дата: Воскресенье, 04 Июл 2010, 14:06 | Сообщение # 76
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
karpovmak, прикольная прога))) Только вот ты кое чего не учел...


У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
DEMOHДата: Воскресенье, 04 Июл 2010, 16:18 | Сообщение # 77
Генерал-лейтенант
Группа: Проверенные
Сообщений: 751
Награды: 0
Репутация: 19
Замечания: 0%
Статус: Offline
сделайте мне змейкy и что то типо гоночек(видом сверху), и что б весело не больше 5мб


Start Source SDK
 
Chuwis720Дата: Воскресенье, 04 Июл 2010, 16:56 | Сообщение # 78
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
karpovmak, а ты исходники заодно кинь)))

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
karpovmakДата: Воскресенье, 04 Июл 2010, 18:29 | Сообщение # 79
Генерал-лейтенант
Группа: Проверенные
Сообщений: 502
Награды: 2
Репутация: 11
Замечания: 0%
Статус: Offline
Ну выход я выполнял функцией ExitWindowsEx(0,0);
Файерволы хер обойдешь.



 
Chuwis720Дата: Воскресенье, 04 Июл 2010, 19:08 | Сообщение # 80
Зобаниватель незобавнивоемого
Группа: Админ
Сообщений: 5077
Награды: 19
Репутация: 68
Статус: Offline
Quote
ExitWindowsEx(0,0);

Я знаю эту функцию... Еще помню ExitWindowsEx(EWX_SHUTDOWN,0); и ExitWindowsEx(EWX_FORCE,0);
Quote (karpovmak)
Файерволы хер обойдешь.

Ага, тем более Outpost))

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)
 
Форум » Софт, компы, технологии » Программерский » Delphi
Страница 4 из 5«12345»
Поиск:

Copyright Mapper720 © 2012   
Используются технологии uCoz