j ai trouvé comment creer un fichier bat pour remplacer le modifbase.bat
il suffit juste de trouver comment passer a isql les param et ca permettra de virer la 1ere ligne de modifbase.sql
voici le script pour remplacer le modifbase.isc
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
[Setup]
AppName=MAJ_Base
AppVerName=Mise à jour de la base
AppPublisher=Philippe Cazaux-Moutou & André Langlet
AppPublisherURL=http://www.ancestrologie.org
AppSupportURL=http://www.ancestrologie.org
AppUpdatesURL=http://www.ancestrologie.org
DefaultDirName={code:doPathAncestro}
DisableProgramGroupPage=yes
OutputBaseFilename=MAJ_Base
Compression=lzma
SolidCompression=yes
LicenseFile=Licence.txt
[INI]
FileName: "{app}\modifbase.ini"; Section: " "; Key: " "; String: "{code:doPathBase}"
[Languages]
Name: en; MessagesFile: "Compiler:Default.isl"
Name: fr; MessagesFile: "Compiler:Languages\French.isl"
[Files]
Source: "modifbase.bat"; DestDir: "{app}"; Flags: ignoreversion
Source: "isql.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "modifbase.sql"; DestDir: "{app}"; Flags: ignoreversion
[Run]
;Filename: "{app}\modifbase.bat";
[Code]
function doPathAncestro(Param: String): string;
var s:String;
begin
if RegQueryStringValue(HKEY_CURRENT_USER, 'SOFTWARE\Ancestrologie\Path','PathAppli', s)then
//MsgBox(s, mbInformation, MB_OK)
else
s := 'C:\Program Files\Ancestrologie';
result := s;
end;
function doPathBase(Param: String): string;
var s:String;
i:integer;
begin
if RegQueryStringValue(HKEY_CURRENT_USER, 'SOFTWARE\Ancestrologie\Path','PathFileNameBdd', s)then
begin
i := Pos('ANCESTROLOGIE.BDD', UpperCase(s)) -1;
s := Copy(s, 1, i);
end
else
s := 'CONNECT ''' + 'C:\Program Files\Ancestrologie\Database';
s := 'CONNECT ''' + s + 'Ancestrologie.bdd'' USER ''SYSDBA'' PASSWORD ''masterkey'' ;';
SaveStringToFile('C:\Program Files\Ancestrologie\Toto.bat', 'ren gds32.dll fbclient.dll' , False) ;
SaveStringToFile('C:\Program Files\Ancestrologie\Toto.bat', #13#10 + 'isql' + s + ' -input modifbase.sql -m -output modifbase.log', True) ;
SaveStringToFile('C:\Program Files\Ancestrologie\Toto.bat', #13#10 + 'ren fbclient.dll gds32.dll', True) ;
//MsgBox(s, mbInformation, MB_OK);
result := s;
end;