Подскажите где ошибка ?

← →
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

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