program boşta kalmışsa

[info@guzelceker.com]

program 5 dk boşta kalmışsa  işlem yapmasını istiyorum varmı böyle bir seçeneğimiz

[hi_selamlar]

(07-04-2023, Saat: 17:53)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

program 5 dk boşta kalmışsa  işlem yapmasını istiyorum varmı böyle bir seçeneğimiz

Merhabalar,

Sayın @Tuğrul HELVACI sitesinde istediğiniz örnek mevcut.
http://www.tugrulhelvaci.com/?p=115


Kolay gelsin.

[elixir84]

var
 LastTick : DWord = 0;


procedure Tana.FormShow(Sender: TObject);
begin
LastTick := GetTickCount;
Timer1.Enabled:=TRUE;
end;

procedure Tana.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
case Msg.message of
WM_LBUTTONDOWN  ,
WM_LBUTTONDBLCLK,
WM_RBUTTONDOWN  ,
WM_RBUTTONDBLCLK,
WM_MOUSEMOVE    ,
WM_KEYDOWN      : LastTick := GetTickCount;
end;
end;


procedure Tana.Timer1Timer(Sender: TObject);
var
  Diff : Extended;
begin
  Diff := (GetTickCount - LastTick) / 1000;

  if Diff >= 60 then // 60 sn boyunca uygulamam kullanılmaz ise...
  begin
    HALT;
    LastTick := GetTickCount;
  end;

end;

[ozcanm]

Merhaba,

Daha önce burada bahsi geçmişti.

İyi Çalışmalar.