Problem mit function und canvas

[k4ni]

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?

[Klaus01]

Nö,

die Schleife wird beender wenn Odd(GetAsyncKeyState(VK_F10));
erfüllt ist.
Warum das exit nicht erfolgreich ist????
Hast Du schon mal, wie bereits gesagt Application.ProcessMessages in die Schleife
eingebaut?
Grüße
Klaus

[Muetze1]

Zitat:

Zitat von Klaus01

Warum das exit nicht erfolgreich ist????
Hast Du schon mal, wie bereits gesagt Application.ProcessMessages in die Schleife
eingebaut?

Was sollte das eine mit dem anderen zu tun haben? Exit ist ein direkter Sprung zum Ende der Prozedur (grob gesagt) und hat nichts mit irgendwelcher Nachrichtenabarbeitung zu tun.

[k4ni]

Habs damit auch versucht geht nicht :(
Naja sollte ja auch nicht nachdem was Muetze sagt :D

Aber ich finde es trotzdem komisch warum es nicht geht ..hmm :cry:

[Klaus01]

Setze doch einmal einen Breakpoint in die LogCheck
Funktion und schau ob

Delphi-Quellcode:

if hDeskDC  <> 0 then

jemals erfüllt ist.

Grüße
Klaus