Please I need text translations of varius languajes

[Razor12911]

audio was disabled in autorun but it started again in setup. Or it is suppose to be like that?
Oh and, the previous installation still doesn't work, I got 32-bit system.

[Logrim]

Razor12911

i like the audio in this way :P..
mm,,in the way i made the detect installion it will must work for both systems.. i only try in 64bits. Help me with that Razor please :P

function GetUninstallerPath: string;
var
RegKey: string;
begin
Result := '';
RegKey := 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVer sion\Uninstall\' + ExpandConstant('{#AppName}') + '_is1'
if not RegQueryStringValue(HKLM, RegKey, 'UninstallString', Result) then
RegQueryStringValue(HKEY_CURRENT_USER, RegKey, 'UninstallString', Result);
StringChange(Result,'"','');
StringChange(Result,' /Silent','');
end;

function InitializeSetup:boolean;
var
UninstPath: string;
ResultCode: Integer;
begin
UninstPath := RemoveQuotes(GetUninstallerPath);
if UninstPath <> '' then begin
case ShowMyPreviusInstall of
mrRepair:Result:=True;
mrUninstall:
begin
Result:=False;
if not Exec(UninstPath, '/Silent', '', SW_HIDE, ewNoWait, ResultCode) then
MsgBox(FmtMessage(SetupMessage(msgUninstallOpenErr or), [UninstPath]), mbError, MB_OK);
end;
else
Result := False;
end;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
if iswin64 then
RegWriteStringValue(HKLM,'SOFTWARE\Wow6432Node\Mic rosoft\Windows\CurrentVersion\Uninstall\' + '{#AppName}' + '_is1','UninstallString','"'+ExpandConstant('{unin stallexe}')+'" /Silent')
else
RegWriteStringValue(HKCU,'Software\Microsoft\Windo ws\CurrentVersion\Uninstall\' + '{#AppName}' + '_is1','UninstallString','"'+ExpandConstant('{unin stallexe}')+'" /Silent');
end;

[Razor12911]

function GetUninstallerPath: string;
var
RegKey: string;
begin
Result := '';
if ISWin64 then
RegKey := 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVer sion\Uninstall\' + ExpandConstant('{#AppName}') + '_is1'
else
RegKey := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninsta ll\' + ExpandConstant('{#AppName}') + '_is1';
if not RegQueryStringValue(HKLM, RegKey, 'UninstallString', Result) then
RegQueryStringValue(HKEY_CURRENT_USER, RegKey, 'UninstallString', Result);
StringChange(Result,'"','');
StringChange(Result,' /Silent','');
end;

[mausschieber]

; *** "German"
; *** "Header" Messages
ge.SetupTitle={#AppName} Setup
ge.SetupTittleUnins={#AppName} Deinstallieren

; *** "Buttons" Messages
geInstallBtnAr=Installieren
geBrowseBtnAr=Durchsuchen
ge.RepairBtn={#AppName} Reparieren
ge.UninstallBtn={#AppName} Deinstallieren
ge.InstallBtn=Installieren
ge.NextBtn=Weiter
ge.BackBtn=Zurück
ge.OKBtn=Akzeptieren
ge.FinishBtn=Fertigstellen

; *** "Previous Installation" Messages
ge.PreviousInstallLabel1=Vorherige Installation von {#AppName} erkannt
ge.PreviousInstallLabel2=Klicken Sie auf "Reparieren", wenn Sie die Installation überschreiben möchten oder "Deinstallieren" um die vorhandene Installation zu entfernen.

; *** "Welcome" Messages
ge.WelcomeLabel1=Willkommen zum {#AppName} Setup-Assistenten.
ge.WelcomeLabel2=Dieser Assistent wird jetzt {#AppName} auf Ihrem Computer installieren.%nSie sollten alle anderen Anwendungen beenden, bevor Sie mit dem Setup fortfahren
ge.WelcomeLabel3=Klicken Sie auf "Weiter", um die Installation fortzusetzen.

; *** "SelectTask" Messages
ge.SelectTasksLabel1=Zusätzliche Aufgaben auswählen
ge.SelectTasksLabel2=Wählen Sie die zusätzlichen Aufgaben aus, die das Setup während der Installation von {#AppName}, ausführen soll, und klicken Sie danach auf "Weiter".
ge.CreateDesktopIcon=Desktop-Symbol erstellen
ge.NoProgramGroupCheck=Keinen Ordner im Startmenü erstellen
ge.RequiredSpaceLabel=Benötigter Speicherplatz -
ge.AvailableSpaceLabel=Verfügbarer Speicherplatz-

; *** "BrowseFolder" Messages
ge.BrowseFolderLabel1=Ziel-Ordner wählen
ge.BrowseFolderLabel2=Das Setup wird {#AppName} in den folgenden Ordner installieren. Klicken Sie auf "Akzeptieren", um fortzufahren.

; *** "Install" Messages
ge.InstallLabel1=Installiere {#AppName}
ge.InstallLabel2=Warten Sie bitte während {#AppName} auf Ihrem Computer installiert wird...

; *** "BrowseDisk" Messages
ge.BrowseDiskLabel1=Der Installationsassistent erfordert die folgende Diskette für weiter
ge.BrowseDiskLabel2=Legen Sie bitte Diskette 
ge.BrowseDiskLabel21=welche enthält
ge.BrowseDiskLabel22=oder suchen Sie den Ordner, wo sich die gewünschte Datei befindet, und klicken Sie auf "Akzeptieren".

; *** "Finish" Messages
ge.FinishLabel1=Beenden des {#AppName} Setup-Assistenten
ge.FinishLabel2=Das Setup hat die Installation von {#AppName} auf Ihrem Computer abgeschlossen.
ge.FinishLabel3=Klicken Sie auf "Fertigstellen", um das Setup zu beenden.

; *** "Rollback and Error" Messages
ge.RollingBack=Änderungen rückgängig machen
ge.RollingBack1=Änderungen werden rückgängig gemacht, Änderungen rückgängig, bitte warten...
ge.InstallError=Fehler bei der Installation
ge.InstallError1=Die Anwendung wurde nicht installiert, bitte wiederholen

; *** "Status" Messages
ge.StatusExtracting=Dateien werden entpackt ...
ge.StatusUninstalling=Dateien werden entfernt ...
ge.StatusDirectX=Installiere Microsoft DirectX...
ge.StatusVisualC=Installiere Microsoft Visual C++ Runtimes...
ge.StatusNvidiaPhysx=Installiere Nvidia Physx...
ge.StatusLive=Installiere Microsoft Games für Windows LIVE!...
ge.UninstallLabel1=Deinstalliere {#AppName}
ge.UninstallLabel2=Bitte warten Sie, während {#AppName} von Ihrem System entfernt wird

[Logrim]

Post updated with a new exe with, i hope, a few bug fixed

[Razor12911]

Oops, use this one bro.
Test it first on your PC the if it works for 64-bit, upload it then I will test for 32-Bit. I wrote this using notepad, and it is not tested.

function GetUninstallerPath: string;
var
RegStr: string;
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\LogrimInstaller\' + '{#AppName}', 'InstallString', RegStr);
Result:=RegStr;
end;
function GetUninstallerExe: string;
var
RegStr: string;
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\LogrimInstaller\' + '{#AppName}', 'UninstallString', RegStr);
Result:=RegStr;
end;
function InitializeSetup:boolean;
var
ResultCode: Integer;
begin
if GetUninstallerExe <> '' then begin
case ShowMyPreviusInstall of
mrRepair:Result:=True;
mrUninstall:
begin
Result:=False;
if not Exec(GetUninstallerExe '/Silent', '', SW_HIDE, ewNoWait, ResultCode) then
MsgBox(FmtMessage(SetupMessage(msgUninstallOpenErr or), [GetUninstallerExe]), mbError, MB_OK);
end;
else
Result := False;
end;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
begin
RegWriteStringValue(HKLM, 'SOFTWARE\LogrimInstaller\' + '{#AppName}', 'InstallString', ExpandConstant('{app}'));
RegWriteStringValue(HKLM, 'SOFTWARE\LogrimInstaller\' + '{#AppName}', 'UninstallString', ExpandConstant('{uninstallexe}'));
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\LogrimInstaller\' + '{#AppName}');
end;

[Logrim]

Razor, the last you post dot work bro? i update the exe ( i dont want use inno msgboxes :P)

[Razor12911]

PM the script and it's resource bro, will work through it. I dual-booted, meaning, I have 32-bit and 64-bit OS already installed.

[_EZEKiEL_]

fr.SetupTitle=Installation de {#AppName}
fr.SetupTittleUnins=Désinstallation de {#AppName}
fr.InstallBtnAr=Installer
fr.BrowseBtnAr=Parcourir DVD
fr.RepairBtn=Réparer {#AppName}
fr.UninstallBtn=Désinstaller {#AppName}
fr.InstallBtn=Installer
fr.NextBtn=Suivant
fr.BackBtn=Précédent
fr.OKBtn=Accepter
fr.FinishBtn=Terminer
fr.PreviusInstallLabel1=Installation précédente de {#AppName} détectée.
fr.PreviusInstallLabel2=Cliquez sur "Réparer" si vous souhaitez mette à jour l'installation%n ou sur "Désinstaller" pour supprimer l'installation existante.
fr.WelcomeLabel1=Bienvenue dans l'Assistant d'installation de {#AppName}.
fr.WelcomeLabel2=L'Assistant va procéder à l'installation de {#AppName} sur votre ordinateur.%nIl est recommandé de fermer tous les programmes susceptible d'interférer%navec le processus d'installation.
fr.WelcomeLabel3=Cliquez sur "Suivant" pour continuer l'installation.
fr.SelectTasksLabel1=Tâches supplémentaires.
fr.SelectTasksLabel2=Sélectionnez les tâches supplémentaires que l'assistant doit effectuer%npendant l'installation de {#AppName}, puis cliquez sur "Installer".
fr.CreateDesktopIcon=Créer une icône sur le bureau
fr.NoProgramGroupCheck=Ne pas créer de dossier dans le menu Démarrer
fr.RequiredSpaceLabel=Espace nécessaire -
fr.AvailableSpaceLabel=Espace disponible -
fr.BrowseFolderLabel1=Choix du repertoire de destination
fr.BrowseFolderLabel2=L'Assistant va installer {#AppName} dans le dossier suivant.%nPour continuer, cliquez sur "Accepter".
fr.InstallLabel1=Installation de {#AppName} en cours.
fr.InstallLabel2=Veuillez patienter pendant l'installation de {#AppName}%nsur votre système...
fr.BrowseDiskLabel1=L'assistant d'installation nécessite le disque suivant pour continuer.
fr.BrowseDiskLabel2=Veuillez insérez le disque
fr.BrowseDiskLabel21=qui contient
fr.BrowseDiskLabel22=ou indiquer le dossier où se trouve le fichier puis cliquez sur "Accepter".
fr.FinishLabel1=Fin de l'Assistant de configuration {#AppName}
fr.FinishLabel2={#AppName} a été installé avec succès sur votre système.
fr.FinishLabel3=Cliquez sur "Terminer" pour quitter l'installation.
fr.RollingBack=Annulation des modifications
fr.RollingBack1=Restauration des paramètres d'origine, veuillez patienter...
fr.InstallError=Une erreur est survenue lors de l'installation.
fr.InstallError1=L'application n'est pas installée, veuillez relancer le setup et réessayer à nouveau.
fr.StatusExtracting=Extraction les fichiers...
fr.StatusUninstalling=Suppression de fichiers...
fr.StatusDirectX=Installation de Microsoft DirectX...
fr.StatusVisualC=Installation Microsoft Visual C ++ Runtimes...
fr.StatusNvidiaPhysx=Installation NVIDIA PhysX...
fr.StatusLive=Installation Microsoft Games for Windows LIVE!...
fr.UninstallLabel1=Désinstallation de {#AppName}
fr.UninstallLabel2=Veuillez patienter pendant que {#AppName}%nsoit désinstallé de votre système...

[Grumpy]

@ _EZEKiEL_

Nice job, excellent first post. Thankyou for taking the time to help.

[_EZEKiEL_]

No prob bro
If someone needs help with a French translation, I'll be happy to help you

[gatosky1620]

beatiful instaler bro

can you put internal and external compresion support?

[Logrim]

@_EZEKiEL_

a lot of thanks, bro

@gatosky1620

La compression interna ya esta implementada. Ahora estoy con el multigame, muchisimas gracias a Razor.
The internal compresion is implemented. Now i'm trying multigame, but there is some problems Thanks to razor for help me with internal and multigame

[Grumpy]

The following French Translation was sent to me by 'cavaliero', even though we now already have the French Translation sorted I would still like to say thanks for your efforts cavaliero.

; *** "french"
; *** "Header" Messages
en.SetupTitle={#AppName} Setup
en.SetupTittleUnins={#AppName} Uninstal
; *** "Buttons" Messages
enInstallBtnAr=Installer
enBrowseBtnAr=Parcourir DVD
en.RepairBtn=Réparer {#AppName}
en.UninstallBtn=désinstaller {#AppName}
en.InstallBtn=Installer
en.NextBtn=Suivant
en.BackBtn=Précédent
en.OKBtn=Accepter
en.FinishBtn=Fin
; *** "Previus Installation" Messages
en.PreviusInstallLabel1=installation Précédente de {#AppName} détecté
en.PreviusInstallLabel2=Cliquer "Réparer" si vous voulez remplacer l'installation ou "désinstaller"%npour désinstaller {#AppName}.
; *** "Welcome" Messages
en.WelcomeLabel1=Bienvenu à l'assistant d'installation de {#AppName}.
en.WelcomeLabel2=Procédure d'installation de {#AppName} dans votre ordinateur.%n Il est fortement recommandé de fermer toutes les programmes qui peuvent interférer avec le processus d'installation.
en.WelcomeLabel3=Cliquez "Suivant" pour continuer l'installation.
; *** "SelectTask" Messages
en.SelectTasksLabel1=Sélectionnez les tâches supplémentaires.
en.SelectTasksLabel2=Sélectionnez les tâches supplémentaires que vous voulez ajouter durant l'installation de%n{#AppName}, puis cliquez "Installer".
en.CreateDesktopIcon=Créer une icône sur le bureau.
en.NoProgramGroupCheck=Ne pas créer un dossier dans le menue démarrer
en.RequiredSpaceLabel=Espace recommandé -
en.AvailableSpaceLabel=Espace disponible-
; *** "BrowseFolder" Messages
en.BrowseFolderLabel1=sélectionner le dossier de destination
en.BrowseFolderLabel2=L'installation de {#AppName} va être effectuée dans l'emplacement choisi.%nPour continuer, cliquez "Accepter".
; *** "Install" Messages
en.InstallLabel1=Installation de{#AppName}
en.InstallLabel2=Attendez l'installation de {#AppName}%ndans votre système ...
; *** "BrowseDisk" Messages
en.BrowseDiskLabel1=L'assistant de l'installation demande le disque suivant pour continuer
en.BrowseDiskLabel2=Insérez le disque
en.BrowseDiskLabel21=qui contient
en.BrowseDiskLabel22=ou sélectionnez le dossier où se trouve le fichier puis cliquez "Accepter".
; *** "Finish" Messages
en.FinishLabel1=l'assistant d'installation de {#AppName} fini l'opération.
en.FinishLabel2={#AppName} a été installé avec succès sur votre système.
en.FinishLabel3=Cliquez "Fin" pour fermer l'assistant.
; *** "Rollback and Error" Messages
en.RollingBack=Annulation des modifications
en.RollingBack1=reprendre l'état original, attendez ...
en.InstallError=Erreur durant l'installation
en.InstallError1=l'application n'est pas installé, essayer à nouveau
; *** "Status" Messages
en.StatusExtracting=extraire les fichiers...
en.StatusUninstalling=suppression de fichiers...
en.StatusDirectX=Installer Microsoft DirectX...
en.StatusVisualC=Installer Microsoft Visual C++ Runtimes...
en.StatusNvidiaPhysx=Installer Nvidia Physx...
en.StatusLive=Installer Microsoft Games pour Windows LIVE!...
en.UninstallLabel1=désinstaller {#AppName}
en.UninstallLabel2=Attendez la désinstallation de {#AppName}%nde votre système...

[Logrim]

me too want to say thanks to cavaliero. In a few hours i'm going to update the post with anew setup with new mofications. internal compression and multigame.