Declare Function GetFileVersionInfoSize Lib "ver.dll" (ByVal lpszFileName As String, lpdwHandle As Long) As Long
Declare Function GetFileVersionInfo Lib "ver.dll" (ByVal lpszFileName As String, ByVal lpdwHandle As Long, ByVal cbbuf As Long, ByVal lpvdata As String) As Integer
Declare Function VerQueryValue Lib "ver.dll" (ByVal lpvBlock As String, ByVal lpszSubBlock As String, lplpBuffer As Long, lpcb As Integer) As Integer
Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As Any, ByVal lpszString2 As Long, ByVal cChars As Integer) As Long
' Syntax: [Lfd-Nr]=Erzeuge_Programm_Icon [Kommando-String]; [Icon-Name]; [Kommando-String auf Zielpfad bezogen=J|N]
' Anmerkung: Parameter "Kommando-String" bezieht sich auf den Zielpfad, wenn der Parameter "Kommando-String auf Zielpfad bezogen" auf "J" eingestellt ist
SrcDialogTitle$ = GetIniString(UCase$("Installation von"), UCase$("Dialog_Titel"), "Installation von ...", SetupIniName)
If Err <> 0 Then SrcDialogTitle$ = "Installation von ..."
SrcDialogInfo$ = GetIniString(UCase$("Installation von"), UCase$("Dialog_Info"), "Bitte geben Sie Laufwerk und Pfad ein, in dem sich das zu installierende Programm befindet.", SetupIniName)
If Err <> 0 Then SrcDialogInfo$ = "Bitte geben Sie Laufwerk und Pfad ein, in dem sich das zu installierende Programm befindet."
If Err <> 0 Or SrcPath$ = "" Then SrcPath$ = SrcDrive$ + "\"
If Left$(SrcPath$, 1) = "\" Then
SrcPath$ = SrcDrive$ + SrcPath$
ElseIf Len(SrcPath$) > 2 Then
If InStr(1, SrcPath$, ":") And InStr(2, SrcPath$, "\") Then
SrcPath$ = Right$(SrcPath$, Len(SrcPath$) - 2)
SrcPath$ = SrcDrive$ + SrcPath$
End If
End If
SrcPath$ = UCase$(SrcPath$)
DestDialogTitle$ = GetIniString(UCase$("Installation nach"), UCase$("Dialog_Titel"), "Installation nach ...", SetupIniName)
If Err <> 0 Then DestDialogTitle$ = "Installation nach ..."
DestDialogInfo$ = GetIniString(UCase$("Installation nach"), UCase$("Dialog_Info"), "Bitte geben Sie Laufwerk und Pfad ein, wonach das Programm installiert werden soll.", SetupIniName)
If Err <> 0 Then DestDialogInfo$ = "Bitte geben Sie Laufwerk und Pfad ein, wonach das Programm installiert werden soll."