home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d2345 / JSAPPEX.ZIP / demo / Unit1.pas < prev   
Pascal/Delphi Source File  |  2001-05-19  |  3KB  |  101 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, AppEx, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     AppEx: TAppEx;
  12.     lLastCompiled: TLabel;
  13.     lLastDesigned: TLabel;
  14.     cbShowOnTaskBar: TCheckBox;
  15.     cbHidefromCtrlAltDel: TCheckBox;
  16.     Button1: TButton;
  17.     Label1: TLabel;
  18.     procedure FormShow(Sender: TObject);
  19.     procedure AppExDisplayChanged(Sender: TObject; HorzRes, VertRes,
  20.       ColorDepth: Integer);
  21.     procedure AppExUserChanged(Sender: TObject);
  22.     procedure AppExEndSession(Sender: TObject; var EndSession: Boolean);
  23.     procedure cbShowOnTaskBarClick(Sender: TObject);
  24.     procedure cbHidefromCtrlAltDelClick(Sender: TObject);
  25.     procedure Button1Click(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure AppExHotKey(Sender: TObject; Index: Integer);
  28.   private
  29.     HotKey : tHotKeyitem;
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.FormShow(Sender: TObject);
  42. begin
  43.  lLastCompiled.Caption:=Format('Last Compiled : %s',[DateTimeToStr(AppEx.LastCompileDate)]);
  44.  lLastDesigned.Caption:=Format('Last Designed : %s',[DateTimeToStr(AppEx.LastDesignDate)]);
  45. end;
  46.  
  47. procedure TForm1.AppExDisplayChanged(Sender: TObject; HorzRes, VertRes,
  48.   ColorDepth: Integer);
  49. begin
  50.  ShowMessage(Format('New Display Resolution %d x %d - %d',[HorzRes,VertRes,ColorDepth]));
  51. end;
  52.  
  53. procedure TForm1.AppExUserChanged(Sender: TObject);
  54. begin
  55.  ShowMessage('User Changed');
  56. end;
  57.  
  58. procedure TForm1.AppExEndSession(Sender: TObject; var EndSession: Boolean);
  59. begin
  60.  ShowMessage('Shutdown ? NO WAY!');
  61.  EndSession:=False;
  62. end;
  63.  
  64. procedure TForm1.cbShowOnTaskBarClick(Sender: TObject);
  65. begin
  66.  AppEx.ShowOnTaskBar:=(Sender as TCheckBox).Checked;
  67. end;
  68.  
  69. procedure TForm1.cbHidefromCtrlAltDelClick(Sender: TObject);
  70. begin
  71.  AppEx.Process.ServiceProcess:=(Sender as TCheckBox).Checked;
  72. end;
  73.  
  74. procedure TForm1.Button1Click(Sender: TObject);
  75. begin
  76.   ShowMessage(Format('FileDescription : %s'+#13#10+
  77.                      'FileVersion : %s'+#13#10+
  78.                      'CompanyName : %s'+#13#10+
  79.                      'Copyright : %s'+#13#10,
  80.                      [AppEx.VersionInfo.FileDescription,
  81.                       AppEx.VersionInfo.FileVersion,
  82.                       AppEx.VersionInfo.CompanyName,
  83.                       AppEx.VersionInfo.Copyright]));
  84.  
  85.  end;
  86.  
  87. procedure TForm1.FormCreate(Sender: TObject);
  88. begin
  89.  HotKey.Modifiers:=[hkCtrl,hkAlt];
  90.  HotKey.VirtKey:=vkA;
  91.  AppEx.HotKey.Add(HotKey);
  92. end;
  93.  
  94. procedure TForm1.AppExHotKey(Sender: TObject; Index: Integer);
  95. begin
  96.   Beep;
  97.   ShowMessage('Hello World !');
  98. end;
  99.  
  100. end.
  101.