çalışan programları form caption'ları ve handle(pid) ile alma

[ReKoBaa_61]

İşinize Yarıycaktır..!



procedure TForm1.Button1Click(Sender: TObject);

var cName : Array[0..63] of Char;

Handle: THandle;

begin

ListBox1.Items.Clear;

ListBox1.Sorted := True;

Handle := Self.Handle;

GetClassName(Self.Handle, cName, 64);

ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');

While Handle > 0 do begin

Handle := GetNextWindow(Handle, GW_HWNDNEXT);

GetClassName(Handle, cName, 64);

ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');

end;

end;