Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Подскажите где ошибка ?   Найти похожие ветки 

 
Jakommo   (2003-02-27 10:53) [0]

Уважаемые мастера! Подскажите, почему с ниже приведённым кодом не могу закрыть нужные мне приложения, например: Винамп, ИЭ т.д.
Мне удалось закрыть только Нотепад!
Где ошибка?

const
PROCESS_TERMINATE = $0001;

procedure TForm1.Button1Click(Sender: TObject);
var
TheWindow: hwnd;
ProcessId: integer;
ProcessHandle: cardinal;
begin
TheWindow := FindWindow("Progman", nil);
GetWindowThreadProcessID(TheWindow, @ProcessId);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);


 
Snap ©   (2003-02-27 11:24) [1]

Otlazhivat ne proboval?


 
Jakommo   (2003-02-27 11:51) [2]

Да, пробовал! Ничего подозрительного...


 
Clickmaker ©   (2003-02-27 13:42) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
TheWindow: hwnd;
begin
TheWindow := FindWindow("Winamp v1.x", nil);
PostMessage(TheWindow, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

А закрывать Progman - это жестоко...


 
jakommo   (2003-02-27 14:00) [4]

> Clickmaker
:) Спасибо! Ряботает. Идею понял!


 
jakommo   (2003-02-27 14:08) [5]

А как сделать тоже самое, но закривать по имени exe?


 
Smashish   (2003-02-27 15:14) [6]

var
hProcessSnap:Cardinal;
pe32:tagPROCESSENTRY32;
begin
hProcessSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe32.dwSize:= SizeOf(PROCESSENTRY32);
if (Process32First(hProcessSnap, pe32)) then
while (Process32Next(hProcessSnap, pe32)) do
Memo1.Lines.Add(pe32.szExeFile);
CloseHandle (hProcessSnap);
end;


 
Guerrillero ©   (2003-02-27 15:16) [7]

1) с помощью ToolHelp функций получить список процессов
2) Найти процесс с нужным exe
3) Взять его ProcessID
4) Получить hProcess с помощью OpenProcess
5) TerminateProcess


 
Jakommo   (2003-02-27 15:58) [8]

> Smashish
> Guerrillero

Спасибо! Но немогу запустить :( А какую uses ставить?


 
Guerrillero ©   (2003-02-27 16:14) [9]

TLHelp32



Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
3-29737
Юный_программер
2003-02-19 13:02
2003.03.10
Не подскажите, в АДО свойство Prepared для параметеризированных


3-29768
mib431
2003-02-19 22:31
2003.03.10
Проблема с большими базами на FoxPro


1-29918
denick
2003-02-21 17:00
2003.03.10
Вопрос про ScrollBar


1-29791
kat
2003-02-26 14:37
2003.03.10
Освобождение памяти


14-30049
Карлсон
2003-02-20 16:14
2003.03.10
что за ерунда?