if ( not existsFile(strDBRootPath+"\adabas","instdb.inf") ) Then
if ( not existsFile(strDBRootPath+"\bin","dbversion.exe") ) Then
Select Case UILanguage
Case 01
SiMsgBox("The installation program has found an installation of %PRODUCTNAME that is not from StarOffice. To ensure that no data is lost in the previous %PRODUCTNAME installation, you can only install the new version in a new directory.")
Case 03
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 07
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 30
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 31
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 33
SiMsgBox("Le programme d'installation a d騁ect une installation de %PRODUCTNAME ne provenant pas de StarOffice. Pour 騅iter toute perte de donn馥s dans l'installation de %PRODUCTNAME existant d駛, installez la nouvelle version dans un nouveau r駱ertoire.")
Case 34
SiMsgBox("El programa de instalaci ha encontrado una instalaci de %PRODUCTNAME que no pertenece a StarOffice. Para evitar p駻didas de datosen la instalaci de %PRODUCTNAME existente, instale la versi nueva en un nuevo directorio.")
Case 35
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 36
SiMsgBox("The installation program has found an installation of %PRODUCTNAME that is not from StarOffice. To ensure that no data is lost in the previous %PRODUCTNAME installation, you can only install the new version in a new directory.")
Case 37
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 39
SiMsgBox("Il programma di installazione ha trovato un'installazione di %PRODUCTNAME che non proviene da StarOffice. Per evitare una perdita di dati nell'installazione precedente di %PRODUCTNAME, vi consigliamo di installare la nuova versione in un'altra cartella.")
Case 42
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mソスglich.")
Case 43
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mソスglich.")
Case 44
SiMsgBox("STR_ADABAS_BEFORE_UPDATE#44")
Case 45
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 46
SiMsgBox("Installationsprogrammet har hittat en %PRODUCTNAME-installation som inte kommer fr蚣 StarOffice. F att data fr蚣 den redan installerade versionen av %PRODUCTNAME inte ska g florade m蚶te du installera den nya versionen i en ny katalog.")
Case 47
SiMsgBox("STR_ADABAS_BEFORE_UPDATE#47")
Case 48
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 49
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 55
SiMsgBox("O programa de instala鈬o encontrou uma instala鈬o do %PRODUCTNAME que n縊 faz parte do StarOffice. Para assegurar que nenhum dado se perca na instala鈬o anterior do %PRODUCTNAME, preciso instalar a nova vers縊 em um diretio novo.")
Case 66
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mソスglich.")
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 91
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mソスglich.")
Case 96
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mlich.")
Case 97
SiMsgBox("Das Installationsprogramm hat eine %PRODUCTNAME Installation gefunden, die nicht von StarOffice stammt. Damit es zu keinem Datenverlust bei Ihrer bereits installierten %PRODUCTNAME Installation kommt, ist nur die Installation in ein neues Verzeichnis mソスglich.")
Case 99
SiMsgBox("STR_ADABAS_BEFORE_UPDATE#99")
Case Else
SiMsgBox("The installation program has found an installation of %PRODUCTNAME that is not from StarOffice. To ensure that no data is lost in the previous %PRODUCTNAME installation, you can only install the new version in a new directory.")
End Select
SetDestinationPath(strDBRootPath+"12")
endif
endif
endif
endif
End Sub
Function existsFile(path as String, file as String) As Boolean
dim localFile as String
dim localPath as String
dim aFileName as String
localFile = file
localPath = path
aFileName = Dir(localPath)
Do while (aFileName <> "")
If (aFileName = localFile) Then
existsFile = true
Goto file_exists
End If
aFileName = Dir
Loop
existsFile = false
file_exists:
End Function
};
End
Module gid_Module_Root
Name = "StarOffice / %PRODUCTNAME %PRODUCTVERSION";