Forum: Object-Pascal / Delphi-Language
Delphi
by bitsetter,
26. Jan 2007
Da ich die Programme selber nicht installiert habe sende ich folgenden Code:procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: array of Char;
p: TPoint;
begin
Caption:= '';
GetCursorPos(p);
GetClassName(WindowFromPoint(p), buffer, length(buffer));
Caption:= 'Classname: '+ string(buffer);
GetWindowText(WindowFromPoint(p), buffer, length(buffer));
Forum: Object-Pascal / Delphi-Language
Delphi
by bitsetter,
25. Jan 2007
findwindow('MozillaUIWindowClass','Mozilla Firefox');
findwindow(nil,'Mozilla Firefox');
findwindow('MozillaUIWindowClass',nil);