Bilgisayarınızda hangi programlar açık

[turkoder]

Formunuza bir tane buton , Label ve  bir tane de Listbox ekleyiniz.

{$R *.dfm} nin alt satırına şu fonksiyonu ekleyelim.

Kod:

function enumWindowsProc(wnd: hwnd; form: Tform1): boolean; Export; stdcall;
var
buffer:array[0..99] of char;
begin
getwindowtext(wnd,buffer,100);
if strlen(buffer)<>0 then
form1.ListBox1.Items.Add(strpas(buffer));
result:=true;
end;

Şimdi sıra butonda, butona tıklayıp neler var neler yok görelim.

Kod:

procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.Clear;
enumwindows(@enumwindowsproc,longint(self));
Label1.caption:=inttostr(listbox1.Items.Count-1)+' Program Çalışıyor';
end;