eine dynamische zahl von nem anderen programm auslesen?

[bitsetter]

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.