Witam,
Jest tak. mam procedure:
procedure TMIDmain.FormCreate(Sender: TObject);
var
_HWND : THandle;
Proc : TProcessEntry32;
begin
_HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proc.dwSize:=SizeOf(Proc);
if Integer(Process32First(_HWND, Proc)) <> 0 then
repeat
aplikacje.Items.Add(Proc.szExeFile);
until Integer(Process32Next(_HWND, Proc)) = 0;
CloseHandle(_HWND);
end;
Kodzik sprawdza uruchomione aplikacje :))
Chcę jeszce aby dodawał on ikonkę programu.
Dzieki za odpowiedz !!