home *** CD-ROM | disk | FTP | other *** search
/ PC Administrator / spravce.iso / StartRight / source / UnitFrmMain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-26  |  2.1 KB  |  119 lines
  1. unit UnitFrmMain;
  2. {
  3.     Purpose:
  4.         Let the user Install ME, Restore settings to the system,
  5.         or edit startup programs
  6.         
  7. }
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  13.   Dialogs, StdCtrls, ComCtrls,
  14.   Registry, UnitStartupMover, UnitStartupRunner,
  15.   ShellAPI, ExtCtrls;
  16.  
  17.  
  18.  
  19. type
  20.   TfrmMain = class(TForm)
  21.     Image1: TImage;
  22.     Label5: TLabel;
  23.     Shape1: TShape;
  24.     Shape2: TShape;
  25.     Label4: TLabel;
  26.     Label3: TLabel;
  27.     btnRestore: TButton;
  28.     Label2: TLabel;
  29.     Label1: TLabel;
  30.     btnInstall: TButton;
  31.     btnEditSort: TButton;
  32.     Label6: TLabel;
  33.     bAbout: TButton;
  34.  
  35.  
  36.  
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure FormDestroy(Sender: TObject);
  39.     procedure btnInstallClick(Sender: TObject);
  40.     procedure btnRestoreClick(Sender: TObject);
  41.  
  42.     procedure btnEditSortClick(Sender: TObject);
  43.     procedure bAboutClick(Sender: TObject);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.     sm : TStartupMover;
  49.     sr : TStartupRunner;
  50.  
  51.   end;
  52.  
  53.  
  54.  
  55. var
  56.   frmMain: TfrmMain;
  57.  
  58. implementation
  59.  
  60. uses UnitFormEdit, UnitFrmAbout, UnitFrmDummyRunner;
  61.  
  62. {$R *.dfm}
  63.  
  64.  
  65.  
  66.  
  67. procedure TfrmMain.FormCreate(Sender: TObject);
  68. begin
  69.     sm := TStartupMover.Create(self.handle);
  70.     sr := TStartupRunner.Create(self.Handle);
  71. end;
  72.  
  73. procedure TfrmMain.FormDestroy(Sender: TObject);
  74. begin
  75.     sr.Free;
  76.     sm.Free;
  77. end;
  78.  
  79. procedure TfrmMain.btnInstallClick(Sender: TObject);
  80. begin
  81.     sm.MoveRunKeyItems;
  82.     sm.MoveStartupFolderItems;
  83.     sr.RefreshItems;
  84.  
  85.     showMessage('Install complete. StartRight will manage your applications next reboot.');
  86.  end;
  87.  
  88. procedure TfrmMain.btnRestoreClick(Sender: TObject);
  89. begin
  90.     sm.RestoreRunKeyItems;
  91.     sm.RestoreStartupFolderItems;
  92.     sr.RefreshItems;
  93.     
  94.     ShowMessage('Restore Complete. StartRight will not run next reboot.');
  95. end;
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105. procedure TfrmMain.btnEditSortClick(Sender: TObject);
  106. begin
  107.     FrmEdit.InitGUI;
  108.     FrmEdit.ShowModal;
  109. end;
  110.  
  111. procedure TfrmMain.bAboutClick(Sender: TObject);
  112. begin
  113.     frmAbout.show;
  114. end;
  115.  
  116. end.
  117.  
  118.  
  119.