g pingin bikin prog dimana prog itu bakal nge-logoff ato nge shutdown komputer kalo nggak ada aktivitas dari mouse ato keyboard selama beberapa menit g coba pake

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  diam: Boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  stat: Cardinal;
  bx,by: DWORD;
begin
Application.ProcessMessages; //bikin proses dibawah ini ???
while true do begin
  mouse_event(stat,bx,by,0,0); //ambil status mouse
  if(stat = MOUSEEVENTF_MOVE)then begin    // gerak ato nggak
    diam:=false;
  end
  else begin
    diam:=true;
  end
end
end;
end.

tapi nggak jalan, gimana sebenarnya cara pake mouse_event sama create prosess di delphi. kalo ngedeteksi event_keyboard pake apa ya ?? ada saran teman2 :D :D

waah sama aq lagi butuh juga nihh!!!

ini ada kaitannya dengan posting di: http://pascal-id.org/thread/unknown/1192/view-old-thread/ xixixixiix...

hi, uda coba pake system global hook? bisa gunakan yg keyboard/mouse hook tergantung event yg ingin di trap.. penjelasan senderhana ttg hook pada level aplikasi ato global bisa dibaca di buku saya ttg Win32 API di: http://www.esnips.com/web/chipmunk-delphi-stuff ato repository codes saya di : My codes at Planet Sour Codes dan http://cc.borland.com/Author.aspx?ID=80482 disitu ada contoh program yg menggunakan system global hook utk keyboard, dan mungkin bisa coba dikembangkan utk mouse hook. Silakan cari dokumentasi utk hook di MSDN/Win32 Help..it's pretty simple.. Jadi outlined processnya kira2 perlunya code yg me-reset "watchdog timer" pada saat penekanan key/mouse event pada level global ..bukan aplikasi. Jika tidak ada aktifitas (mouse/keyboard) dalam interval tertentu, lakukan logic program anda.. sori ga sempat bikin sample codes-nya... :) saya kira mudah klo uda paham global hooks.. br, chipmunk