Einzelnen Beitrag anzeigen

k4ni

Registriert seit: 17. Jul 2007
Ort: Ulm
258 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Problem mit function und canvas

  Alt 14. Jan 2008, 14:37
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?
  Mit Zitat antworten Zitat