Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c