Файл справки и инсталятор к программе

unit install;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, Registry;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{$WARN UNIT_PLATFORM OFF}
var
MySubKey:PChar;
MyRegistry:TRegistry;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
DskSpc:LongInt;  // Storage for free disk space value
MinDSpace:LongInt;  // predifined disk space minimum
InFile, OutFile:File;  // File variables to use in copy routine
NumRecsRead:integer;  //variable to keep track of records read and written
Buf:array[1..4096] of Byte; // Buffer used to copy file
begin
//Check disk space on drive C:
MinDSpace:=1024000; // 1 meg min disk space
DskSpc:=DiskFree(3); // get disk space on disk C:
if DskSpc<MinDSpace then
begin
  ShowMessage('Не достаточно места на диске! Обновление не сработало.');
  Application.Terminate;
  // create directory
  mkdir('C:\myapp');
  {--------------- Start Copy Routine ---------------------}
  AssignFile(InFile, 'c:\Project1.exe');
  AssignFile(OutFile, 'c:\myapp\Project1.exe');
  // Open files and Set record size to 1 byte
  Reset(InFile,1);
  Rewrite(OutFile,1);
  While not Eof(InFile) Do
  begin
    // Read a 4K block into the buffer
    BlockRead(InFile, Buf, SizeOf(Buf), NumRecsRead);
    // Write a 4K block to new file
    BlockWrite(OutFile,Buf,NumRecsRead);
  end;
  // Flush buffers to disk and close the file
  CloseFile(InFile);
  CloseFile(OutFile);
  {------------------ End Copy Routine ----------------------}
  // Make registry entry using TRegistry Object
  MyRegistry:=TRegistry.Create;
  MyRegistry.Rootkey:=HKEY_LOCAL_MACHINE;
  if MyRegistry.OpenKey('SOFTWARE\MyCompany\MyApp',true) then
  begin
    MyRegistry.WriteString('MyAppVer','My Application Version 1.0');
    MyRegistry.CloseKey;
  end
  else
    begin
      ShowMessage('Обновление регистар не удалось!');
      MyRegistry.Free;
      Application.Terminate;
    end;
  ShowMessage('Обновление завершено!');
  MyRegistry.Free;
  Application.Terminate;
  // Done making registry entre with TRegistry Object
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var F:File;
begin
// Check for command line option /U, if so uninstall
// otherwise fall through and get ready to install
if (ParamCount > 0) and ((ParamStr(1) = '/U') or (ParamStr(1) = '/U')) then
   begin
     AssignFile(F, 'C:\myapp\ENGINE.exe');
     Erase(F);
     RmDir('C:\MyApp');
     MyRegistry:=TRegistry.Create;
     MyRegistry.RootKey:=HKEY_LOCAL_MACHINE;
     MySubKey:='SOFTWARE\MyCompany';
     if MyRegistry.DeleteKey(MySubKey) then
     begin
       ShowMessage('Успешно удалено!');
       MyRegistry.CloseKey;
       MyRegistry.Free;
       Application.Terminate;
     end;
   end;
end;
 
end.