Mega Code Archive

 

Categories / Delphi / System

 

Calışan programları form captionları ve handle[pid] ile alma

//drony@mynet.com //icq:266148308 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;