Jak pobrać listę plików procesów?
10:13Wed, 3 January 2007 Do listy uses dodaj moduł TLHelp32, na formularzu (Form1) postaw komponent Memo (Memo1) i przycisk:
procedure ProcessList();
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
Form1.Memo1.Lines.Add(IntToStr(Proc.th32ProcessID)+#09+Proc.szExeFile); // dodaje sciezkie pliku do ListBox'a
until Integer(Process32Next(_HWND, Proc)) = 0; // dopoki wartosc nie osiagnie 0
CloseHandle(_HWND);
end;
w procedurze obsługującej kliknięcie przycisku wystarczy wywołać taką procedurę:
ProcessList();
Póki co brak pytań w FAQ.Skomentuj
Aby zamieścić komentarz, proszę włączyć JavaScript - niestety roboty spamujące dają mi niezmiernie popalić.
Komentarze czytelników
Nie ma jeszcze żadnych komentarzy.