- {$R install.RES}
- {$R *.dfm}
-
- procedure TForm1.Button_InstallClick(Sender: TObject);
- var
- Prog, BDD, BDE: TResourceStream;
- begin
- if chemin_install.Text <> '' then
- begin
- Prog:=TResourceStream.Create(0,'PROGRAM',RT_RCDATA);
- BDD:=TResourceStream.Create(0,'BDD',RT_RCDATA);
- BDE:=TResourceStream.Create(0,'BDE',RT_RCDATA);
- try
- Prog.SaveToFile(Chemin_Install.Text + 'Emprunt.exe');
- BDD.SaveToFile(Chemin_Install.Text + 'Emprunt.db');
- BDE.SaveToFile('c:\BdeInst.dll');
- ShowMessage(' INSTALLATION DE LA BDE' + sLineBreak + sLineBreak + 'Veuillez cliquer sur OK une fois seulement que l''installation de la BDE est terminée');
- ShellExecute(Handle,'open',PChar('regsvr32'),PChar('C:\BDEINST.dll'),nil,SW_SHOW);
- ShowMessage('OK');
- DeleteFile('C:\BDEINST.dll');
- ShowMessage('Installation terminée');
- ShowMessage('Merci d''avoir choisi ArchitectoInstall');
- finally
- Prog.Free;
- BDD.Free;
- end;
- Close;
- end else ShowMessage('Veuillez choisir un dossier destination');
- end;
-
- procedure TForm1.Button_SelectDirectoryClick(Sender: TObject);
- var
- Repertoire, slash: String;
- begin
- If SelectDirectory('Choisissez le dossier de décompression', '', Repertoire) Then
- Chemin_Install.Text := Repertoire;
- slash := Chemin_Install.Text;
- if slash[Length(slash)]='\' then //Recupere le dernier caractere du string
- begin
- Chemin_Install.Text := Chemin_Install.Text;
- end else
- begin
- Chemin_Install.Text := Chemin_Install.Text + '\';
- end;
- end;
-
- procedure TForm1.QuitClick(Sender: TObject);
- begin
- Close;
- end;
{$R install.RES}
{$R *.dfm}
procedure TForm1.Button_InstallClick(Sender: TObject);
var
Prog, BDD, BDE: TResourceStream;
begin
if chemin_install.Text <> '' then
begin
Prog:=TResourceStream.Create(0,'PROGRAM',RT_RCDATA);
BDD:=TResourceStream.Create(0,'BDD',RT_RCDATA);
BDE:=TResourceStream.Create(0,'BDE',RT_RCDATA);
try
Prog.SaveToFile(Chemin_Install.Text + 'Emprunt.exe');
BDD.SaveToFile(Chemin_Install.Text + 'Emprunt.db');
BDE.SaveToFile('c:\BdeInst.dll');
ShowMessage(' INSTALLATION DE LA BDE' + sLineBreak + sLineBreak + 'Veuillez cliquer sur OK une fois seulement que l''installation de la BDE est terminée');
ShellExecute(Handle,'open',PChar('regsvr32'),PChar('C:\BDEINST.dll'),nil,SW_SHOW);
ShowMessage('OK');
DeleteFile('C:\BDEINST.dll');
ShowMessage('Installation terminée');
ShowMessage('Merci d''avoir choisi ArchitectoInstall');
finally
Prog.Free;
BDD.Free;
end;
Close;
end else ShowMessage('Veuillez choisir un dossier destination');
end;
procedure TForm1.Button_SelectDirectoryClick(Sender: TObject);
var
Repertoire, slash: String;
begin
If SelectDirectory('Choisissez le dossier de décompression', '', Repertoire) Then
Chemin_Install.Text := Repertoire;
slash := Chemin_Install.Text;
if slash[Length(slash)]='\' then //Recupere le dernier caractere du string
begin
Chemin_Install.Text := Chemin_Install.Text;
end else
begin
Chemin_Install.Text := Chemin_Install.Text + '\';
end;
end;
procedure TForm1.QuitClick(Sender: TObject);
begin
Close;
end;