Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: kan mir jemand helfen?

  Alt 14. Jul 2007, 02:53
Hi,

das scheint zwar ein Spiel zu sein, aber du kannst ja trotzdem mal versuchen ob du da was auslesen kannst.
Dafür benötigst du einen TLabel und ein TTimer, im onTimer Event fügst du folgenden Code hinzu:
Delphi-Quellcode:
function GetWinText(Handle: HWND): AnsiString;
begin
  SetLength(Result, SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0)+ 1);
  SendMessage(Handle, WM_GETTEXT, Length(Result), integer(Result));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Timer1.Interval:= 100;
  Label1.Caption:= GetWinText(WindowFromPoint(mouse.CursorPos));
end;
Wenn du mit dem Cursor auf den Text zeigen tust, wirst du ja sehen ob dieser ausgelesen werden kann.
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat