Время работы компьютера

[artemavd]

Возникла идейка написать одну программу. В ней нужно следить за временем простоя компьютера. То есть я вот что имею ввиду. Пусть моя программка установлена на компе, в ней задается время через сколько времени простоя компьютера без действия нужно запустить (открыть (программа моя в трее будет)) мою программку. То есть вопрос-то в чем: как отследить время, которое компьютер простаивает? Вот такой вот вопросс)

[Kotofff]

http://www.delphisources.ru/pages/so...e-monitor.html

[artemavd]

А вот в этом примере время, через которое стартует программа задается здесь:

const
  IdleThreshold = 5;

А у меня пользователь должен сам его задавать. И как вследствии возник вопрос: как лучше организовать ввод и хранение введенного числа? То есть ситуация такова: пользователь поставил мою программу, первый раз запустил ее, указал любое свое число, сохранил и программа будет уже появляться через то количество секунд, которое указал пользователь при первом запуске. И так будет запускаться до тех пор, пока пользователь не сменит это число. Где лучше хранить это самое число и как грамотно организовать это?

[Alex Cones]

Да в любом месте - в реестре, в файле.
При загрузке программы загрузили из реестра/файла, при перемещении бегунка настройкки - перезаписали.

[artemavd]

Вот, сделал, чтобы показывалось на весь (почти) экран:

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, RzTray, Menus, ImgList;

type
  TfMain = class(TForm)
    IdleTimer: TTimer;
    lbWarning: TLabel;
    RzTrayIcon1: TRzTrayIcon;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure IdleTimerTimer(Sender: TObject);
    procedure N1Click(Sender: TObject);
   end;

var
  fMain: TfMain;

implementation
 uses Unit1;
{$R *.dfm}

const
  IdleThreshold = 5;

procedure TfMain.FormCreate(Sender: TObject);
begin
 Application.ShowMainForm:=false;
// PostMessage(Application.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 1);
end;

procedure TfMain.IdleTimerTimer(Sender: TObject);
var
 LII: TLastInputInfo;
 CurrentIdleInterval: DWORD;
begin
 FillChar(LII, SizeOf(LII), 0);
 LII.cbSize:=SizeOf(LII);
 Win32Check(GetLastInputInfo(LII));
 CurrentIdleInterval:=GetTickCount-LII.dwTime;
 if CurrentIdleInterval>1000*IdleThreshold
 then
  begin
   Form1.Caption:=Format('Время бездействия %d секунд',[CurrentIdleInterval div 1000]);
   Form1.Show;
  end;
end;

procedure TfMain.N1Click(Sender: TObject);
begin
 Application.Terminate;
end;

end.

Когда прога старутет, то прога сворачивается в трей, проходит 5 секунд и появляется Form1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton;

type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 uses main;
{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
 Form1.Hide;
 fmain.Hide;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  Form1.Hide;
  fmain.Hide;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FormStyle:=fsStayOnTop;
 BorderStyle:=bsNone;
 WindowState:=wsMaximized;
 Color:=clBlack;
end;

end.

Что дописать, чтобы панель задач, которая видна, тоже перекрывалась моей формой?

[eoln]

  form1.BorderStyle := bsNone;
  form1.WindowState := wsMaximized;

[artemavd]

Код:

  form1.BorderStyle := bsNone;
  form1.WindowState := wsMaximized;

Это не канает . Панель задач все равно видна)

[Marsel737]

artemavd, а что сешает скрыть панель задач? А потом когда форму будеш сварачивать снова показать

[artemavd]

а что сешает скрыть панель задач? А потом когда форму будеш сварачивать снова показать

Как? Я думал об этом.

[Marsel737]

procedure TfrmFirst.OldDesktopHide;
var
  Wnd: THandle;
begin
  Wnd := FindWindow('Progman', nil);
  Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
  ShowWindow(Wnd, sw_hide);
  ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_hide);
  ShowWindow(FindWindow('Button', nil), sw_hide);
  //EnableWindow(FindWindow('Button', nil),False);
end;

procedure TfrmFirst.OldDesktopShow;
var
  Wnd: THandle;
begin
  Wnd := FindWindow('Progman', nil);
  Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
  ShowWindow(Wnd, sw_show);
  ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_show);
  ShowWindow(FindWindow('Button', nil), sw_show);
  //EnableWindow(FindWindow('Button', nil),True); // на семерку, на хп чуто подругому
end;

из названий думаю всё понятно, тут ещё и ярлыки со стола скрываются