Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
16. Dez 2007
procedure TForm1.WMHotKey(var Message:TMessage);
begin
If (Message.wParam=HotKeyID) and anaus then begin...
Erscheint mir erstmal logischer.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
16. Dez 2007
Also dient anaus dazu, zu ermitteln, ob Du auf den Hotkey reagieren willst?
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
16. Dez 2007
Dann schalt den Timer doch mal im Timer-Event selbst aus. Ich versteh eh nicht, wozu Du soviele Variablen brauchst.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
16. Dez 2007
procedure TForm1.WMHotKey(var Message:TMessage);
begin
If Message.wParam=HotKeyID then begin
if not klick then begin//1.Block
klick:= true;
GetCursorPos(curs);
end;
if anaus then //2.Block
timer1.Enabled:=true
else if klick then
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
16. Dez 2007
Wenn klick true ist, kommst Du gar nicht in den Block.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
15. Dez 2007
Das können aber nur Sekunden gewesen sein :mrgreen:
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
15. Dez 2007
Versuch es mal mit Ord('Ö')
Manuel *grmpf* :?