also hier ist die schleife:
Delphi-Quellcode:
procedure TForm1.Schleife();
begin
repeat
if LogCheck() then
Exit;
{**
...
Langer grosser code
...
**}
until
Odd(GetAsyncKeyState(VK_F10));
end;
und hier ist logcheck
Delphi-Quellcode:
function TForm1.LogCheck(): Boolean;
var
hDeskDC: HDC;
hDeskWnd: HWND;
begin
Result := FALSE;
hDeskWnd := FindWindow('
MsClass',
nil);
hDeskDC := GetDC(hDeskWnd);
if hDeskDC <> 0
then
begin
if Windows.GetPixel(hDeskDC, 487, 481) =
RGB(255, 255, 255)
then Result := TRUE
else Result := FALSE;
end;
ReleaseDC(hDeskWnd, hDeskDC);
end;
Also wenn LogCheck = true ist dann müsste er doch die schleife beenden oder?