Hallo.
Ich habe die Routine Gettext so abgefasst:
Result := '';
BuffLen := 50;
if (BuffLen > 0) then begin
GetMem(PBuffer, BuffLen + 1);
try
FillChar(PBuffer^, BuffLen + 1, #0);
if SendMessage(aHandle,wm_gettext, BuffLen,pBuffer) > 0) then begin
Result := StrPas(PBuffer);
end;
finally
FreeMem(Pbuffer, BuffLen + 1);
end;
end;
Irgendetwas (oder auch alles) an dieser Geschichte ist faul. Ich weiß leider nur nicht was!
Ich hoffe auf Hilfe.
Danke, Dominik.
Ich habe die Routine Gettext so abgefasst:
Result := '';
BuffLen := 50;
if (BuffLen > 0) then begin
GetMem(PBuffer, BuffLen + 1);
try
FillChar(PBuffer^, BuffLen + 1, #0);
if SendMessage(aHandle,wm_gettext, BuffLen,pBuffer) > 0) then begin
Result := StrPas(PBuffer);
end;
finally
FreeMem(Pbuffer, BuffLen + 1);
end;
end;
Irgendetwas (oder auch alles) an dieser Geschichte ist faul. Ich weiß leider nur nicht was!
Ich hoffe auf Hilfe.
Danke, Dominik.
Comment