اعرف جميع البرامج المنفدة في جهازك

سلام

هدا الكود يقوم بعرض جميع البرامج المنفدة حاليا في الوندوز .

ضع زر + Listbox على الفورم تم ضع الخطوات التالية في onclick الخاص الزر .

procedure TForm1.Button10Click(Sender: TObject);

const

PROCESS_TERMINATE=$0001;

var

ContinueLoop: BOOL;

FSnapshotHandle: THandle;

FProcessEntry32: TProcessEntry32;

str1,str2:string;

begin

FSnapshotHandle := CreateToolhelp32Snapshot

(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle,

FProcessEntry32);

while integer(ContinueLoop) <> 0 do

begin

Form1.Listbox1.items.add(FProcessEntry32.szExeFile);

ContinueLoop := Process32Next(FSnapshotHandle,

FProcessEntry32);

end;

CloseHandle(FSnapshotHandle);

end;