Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
14. Jan 2008
Setze doch einmal einen Breakpoint in die LogCheck
Funktion und schau ob if hDeskDC <> 0 then
jemals erfüllt ist.
Grüße
Klaus
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
14. Jan 2008
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
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
14. Jan 2008
function TForm1.LogCheck(): Boolean;
var
DCanvas: TCanvas;
DHandle: HDC;
begin
DHandle:=GetDC(0);
if DHandle<>0 then
begin
try
DCanvas:=TCanvas.Create;