dosya çalıştırma ve mouse kontrolü

[sako]

Arkadaşlar forumda biraz araştırdım dosya çalıştırma ile ilgili bir koaç başlığı okudum fakat bunlarda genellikle mesela bi dosyanın excel ile açılması veya her hangi bir program ile açılması var. Benim istediğim mesela c:\windows\deneme.exe dosyasını direk çalıştırmak.

Birde mouse veya diğer tüm tuşlar 10 saniye kadar kullanılmayınca 10 sn basılmadı yazsın mesela.


kolay gelsin.

[mege]

shellexecute
sonucundad çıkması lazım sorunun cevabı

buda diğerinde işine yarayabilir

viewtopic.php?p=2500#2500

Kod: Tümünü seç

procedure TScrnFrm.DeactivateScrnSaver(var Msg : TMsg; var Handled : boolean);
var
  done : boolean;
begin
  if Msg.message = WM_MOUSEMOVE then
    done := (Abs(LOWORD(Msg.lParam) - crs.x) > 5) or
            (Abs(HIWORD(Msg.lParam) - crs.y) > 5)
  else
    done := (Msg.message = WM_KEYDOWN)     or (Msg.message = WM_KEYUP)       or
            (Msg.message = WM_SYSKEYDOWN)  or (Msg.message = WM_SYSKEYUP)    or
            (Msg.message = WM_ACTIVATE)    or (Msg.message = WM_NCACTIVATE)  or
            (Msg.message = WM_ACTIVATEAPP) or (Msg.message = WM_LBUTTONDOWN) or
            (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_MBUTTONDOWN);
  if done then
    Close;
end; {TScrnFrm.DeactivateScrnSaver}