Zamykanie na zawołanie

Czy można zamknąć jakiś program za pomocą programu napisanego w Delphi?

---

cytat:damc napisał:

Czy można zamknąć jakiś program za pomocą programu napisanego w Delphi?

Tak da się...

Anonymous AdSoft
------------
www.adsoft.glt.pl
adsoftt@o2.pl
gg:2283189

Dodaj ListBox1, Edit1 i Button.
To najlepiej wpisz w FormCreate:

var
_HWND : THandle;
Proc : TProcessEntry32;
begin
_HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proc.dwSize:=SizeOf(Proc); // okresl rozmiar struktory
if Integer(Process32First(_HWND, Proc)) <> 0 then
repeat
ListBox1.Items.Add(Proc.szExeFile); until Integer(Process32Next(_HWND, Proc)) = 0; // dopoki wartosc nie osiagnie 0
CloseHandle(_HWND);

A to wstaw do Buttona:
var
PHandle, FHandle: THandle;
Process:TProcessEntry32;
Done, Next: Boolean;
EXE : String; // ścieżka programu
begin
EXE := Edit1.Text;
FHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Process.dwSize := Sizeof(Process);
Next := Process32First(FHandle,Process);
while Next do
begin{ jesli sciezka dostepu sie zgadza }
if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(EXE) then
begin
PHandle:=OpenProcess(PROCESS_TERMINATE, False,
Process.th32ProcessID);
{ to probujemy zabic aplikacje }
Done := TerminateProcess(PHandle,0);
if not Done then
MessageBox(Handle, 'Błąd', 'Błąd', MB_OK);
end;
Next := Process32Next(FHandle,Process);
end;
CloseHandle(FHandle);

i to wszystko...

Anonymous AdSoft
------------
www.adsoft.glt.pl
adsoftt@o2.pl
gg:2283189

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl