Delphi-Quellcode:
function TForm1.LogCheck(): Boolean;
var
DCanvas: TCanvas;
DHandle: HDC;
begin
DHandle:=GetDC(0);
if DHandle<>0
then
begin
try
DCanvas:=TCanvas.Create;
try
DCanvas.Handle:=DHandle;
result := DCanvas.Pixels[487, 481] =
RGB(255, 255, 255)
finally
DCanvas.Free;
end;
finally
if ReleaseDc(0, DHandle)<>1
then
RaiseLastOSError;
end;
end
else
RaiseLastOSError;
end;
Im obigen Code is result nicht definiert wenn DHandle = 0 ist
und wenn DCanvas.Create fehlgeschlagen ist.
Delphi-Quellcode:
procedure TForm1.Schleife();
begin
repeat
if LogCheck then
Exit;
until // Bedingung fehlt
end;
Hier ist noch dazu zu sagen das man niemals auf = true prüfen sollte.
LogChecl liefert doch schon ein Boolean zurück.
Grüße
Klaus