Oder mit:
Delphi-Quellcode:
...
var
Text:
string;
count: integer;
begin
count:= 256;
SetLength(Text, 256);
count:= SendMessage(
Handle, WM_GETTEXT, count, integer(PChar(Text)));
SetLength(Text, count);
...
Sollte so gehen. HabS' jetzt nicht getestet, aber vor kurzer Zeit hab ich auch so ein Prog geschrieben.
Reddog.
All prime numbers are odd with the
exception of two, which is an odd prime