CreateBackground 'SwSetup - Installation'

If __Language__ == 'deu'
   vLanguage = 0
Else
   vLanguage = 1
Endif

vLogFileName = '%__WindowsVerzeichnis__%\\SwSetupG.log'

vFpLog = fopen vLogFileName 'w'							 
if __error__ == 0
	MessageBox 'Logdatei ''%vLogFileName%'' kann nicht geöffnet werden'
	Exit
endif

fputs vFpLog 'SwSetup - Installation\n\n'
fputs vFpLog '           Datum/Uhrzeit: \t%__Date__%\n'
fputs vFpLog '            ProgrammName: \t%__ProgrammName__%\n'
fputs vFpLog '         ProgrammVersion: \t%__ProgrammVersion__%\n'
fputs vFpLog '     aktueller Dateiname: \t%__SwSetupFileName__%\n'
fputs vFpLog '                Language: \t%__Language__%\n'
fputs vFpLog '              WinVersion: \t%__WinVersion__%\n'
fputs vFpLog '                WinMinor: \t%__WinMinor__%\n'
fputs vFpLog '               WinSystem: \t%__WinSystem__%\n'
fputs vFpLog '      WindowsVerzeichnis: \t%__WindowsVerzeichnis__%\n'
fputs vFpLog 'WindowsSystemVerzeichnis: \t%__WindowsSystemVerzeichnis__%\n'

vPwd = pwd
fputs vFpLog 'Aktuelles Arbeitsverzeichnis: "%vPwd%"\n'

vInstallDir = ' '
vInstallDir = GetIniFile '%__WindowsVerzeichnis__%\\swsetup.ini' 'Install' 'InstallDir'
If vInstallDir <= ' '
	vInstallDir = GetRegistry 'HKEY_LOCAL_MACHINE' 'SOFTWARE\\Microsoft\\Windows\\CurrentVersion' 'ProgramFilesDir' 
	If vInstallDir > ' '
		vInstallDir = '%vInstallDir%\\swsetup'
	Else
		vInstallDir = 'c:\\swsetup'
	EndIf
EndIf


:ReDialog

vText[1] = 'Directory for install SwSetup Files/Samples'
vText[0] = 'Verzeichnis für SwSetup Dateien/Beispiele'
cd 'c:\\'
vInstallDir = SelectDir vInstallDir vText[vLanguage]
If __error__ == 0
	fputs vFpLog 'Installation durch Benutzer abgebrochen\n'
	Exit
EndIf


fputs vFpLog 'Install-Verzeichnis = "%vInstallDir%"\n'

vFree1 = Mid vInstallDir 1 1	
If vFree1 != '\\'
	vFree = GetDiskSizeFree vInstallDir
	vFree = vFree / 1024
	If vFree < 9000
		fputs vFpLog 'weniger als 9000 K frei\n'
		vText[1] = 'The required hard disk space is not available, SwSetup requires 9 MB of hard disk space.'
		vText[0] = 'Es sollten mindestens 9 MB auf der angegeben Platte frei sein !'
		MessageBox vText[vLanguage]
		goto :ReDialog
	EndIf
EndIf


fputs vFpLog 'mkdir %vInstallDir%\n'
mkdir vInstallDir 
if __error__ == 0
	fputs vFpLog 'Verzeichnis konnte nicht angelegt werden\n'
	vText[1] = 'Can not create directory !'
	vText[0] = 'Verzeichnis konnte nicht angelegt werden !'
	MessageBox vText[vLanguage]
	goto :ReDialog
endif


vInstallDirB = ''		// enthält doppelte Anzahl Backslash's
vTemp2 = ''
vTemp  = vInstallDir
:NaechstesVerzeichnis
vBs = StrChr vTemp '\\'		// 1. \
if vBs > 0
	vTemp2 = Mid vTemp 1 vBs
	vInstallDirB = '%vInstallDirB%%vTemp2%\\'
	vBs    = vBs + 1
	vTemp  = Mid vTemp vBs 256 
	goto :NaechstesVerzeichnis
endif
vInstallDirB = '%vInstallDirB%%vTemp%'


cd vPwd 

// ------------ beginn SwSetup-Dateien ins Hauptverzeichnis ------------- //
fputs vFpLog '\nSwSetup - Allgemein\n'
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetup.Hlp'  '%vInstallDir%\\SwSetup.Hlp'  vFpLog
CopyFile 'SwSetup3.Hlp' '%vInstallDir%\\SwSetup3.Hlp' vFpLog
CopyFile 'Inhalt.Wri'   '%vInstallDir%\\Inhalt.Wri'   vFpLog
CopyFile 'Liesmich.Wri' '%vInstallDir%\\Liesmich.Wri' vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\SwSetup3.Exe' vFpLog
CopyFile 'SwList.Exe'   '%vInstallDir%\\SwList.Exe'   vFpLog
CopyFile 'SwList.ini'   '%vInstallDir%\\SwList.ini'   vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\SwSetupI.Exe' vFpLog
CopyFile 'Setup.Exe'    '%vInstallDir%\\Setup.Exe'    vFpLog


// diese beiden dateien werden aus platzgründen dupliziert
CopyFile 'Hcpdll.dll'   'Hcpntdll.dll'  vFpLog
CopyFile 'Hardcopy.exe' 'Hrdcpy32.exe'  vFpLog

// ------------ beginn hardcopy simple --------------- //
fputs vFpLog '\nSwSetup - Hardcopy - Simple\n'
mkdir '%vInstallDir%\\HcSimple\\files'

CopyFile 'HcSimple.Inf' '%vInstallDir%\\HcSimple\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\HcSimple\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\HcSimple\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\HcSimple\\SwSetup3.Exe' vFpLog

CopyFile 'Hcpdll.dll'   '%vInstallDir%\\HcSimple\\files\\Hcpdll.dll'    vFpLog
CopyFile 'Hcpntdll.dll' '%vInstallDir%\\HcSimple\\files\\Hcpntdll.dll'  vFpLog
CopyFile 'Hardcopy.exe' '%vInstallDir%\\HcSimple\\files\\Hardcopy.exe'  vFpLog
CopyFile 'Hrdcpy32.exe' '%vInstallDir%\\HcSimple\\files\\Hrdcpy32.exe'  vFpLog

ChangeFileValue         '%vInstallDir%\\HcSimple\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
ChangeFileValue         '%vInstallDir%\\HcSimple\\SwSetup.Inf' 'd:\\\\SwSetup\\\\Hardcopy' '%vInstallDirB%\\\\HcSimple' vFpLog
DeleteFile              '%vInstallDir%\\HcSimple\\SwSetup.alt'


// ------------ beginn hardcopy --------------- //
fputs vFpLog '\nSwSetup - Hardcopy\n'
mkdir '%vInstallDir%\\Hardcopy\\files'

CopyFile 'Hardcopy.Inf' '%vInstallDir%\\hardcopy\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\hardcopy\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\hardcopy\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\hardcopy\\SwSetup3.Exe' vFpLog

CopyFile 'Hcpdll.dll'   '%vInstallDir%\\hardcopy\\files\\Hcpdll.dll'    vFpLog
CopyFile 'Hcpntdll.dll' '%vInstallDir%\\hardcopy\\files\\Hcpntdll.dll'  vFpLog
CopyFile 'Hardcopy.exe' '%vInstallDir%\\hardcopy\\files\\Hardcopy.exe'   vFpLog
CopyFile 'Hrdcpy32.exe' '%vInstallDir%\\hardcopy\\files\\Hrdcpy32.exe'  vFpLog

ChangeFileValue         '%vInstallDir%\\hardcopy\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
ChangeFileValue         '%vInstallDir%\\hardcopy\\SwSetup.Inf' 'd:\\\\SwSetup\\\\Hardcopy' '%vInstallDirB%\\\\Hardcopy' vFpLog
DeleteFile              '%vInstallDir%\\hardcopy\\SwSetup.alt'



// ------------ beginn hardcopy benutzer-gesteuert --------------- //
// ------------------- uninstall über icon ----------------------- //
fputs vFpLog '\nSwSetup - Hardcopy - User\n'
mkdir '%vInstallDir%\\HcUser\\files'

CopyFile 'HcUser.Inf'   '%vInstallDir%\\HcUser\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\HcUser\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\HcUser\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\HcUser\\SwSetup3.Exe' vFpLog

CopyFile 'Hcpdll.dll'   '%vInstallDir%\\HcUser\\files\\Hcpdll.dll'    vFpLog
CopyFile 'Hcpntdll.dll' '%vInstallDir%\\HcUser\\files\\Hcpntdll.dll'  vFpLog
CopyFile 'Hardcopy.exe' '%vInstallDir%\\HcUser\\files\\Hardcopy.exe'  vFpLog
CopyFile 'Hrdcpy32.exe' '%vInstallDir%\\HcUser\\files\\Hrdcpy32.exe'  vFpLog
CopyFile 'Hardcopy.txt' '%vInstallDir%\\HcUser\\files\\Liesmich.txt'  vFpLog
CopyFile 'Hardcopy.txe' '%vInstallDir%\\HcUser\\files\\ReadMe.txt'    vFpLog

ChangeFileValue         '%vInstallDir%\\HcUser\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
ChangeFileValue         '%vInstallDir%\\HcUser\\SwSetup.Inf' 'd:\\\\SwSetup\\\\Hardcopy' '%vInstallDirB%\\\\HcUser' vFpLog
DeleteFile              '%vInstallDir%\\HcUser\\SwSetup.alt'


// ------------ beginn hardcopy benutzer-gesteuert 'simple' ------------ //
fputs vFpLog '\nSwSetup - Hardcopy - User - Simple\n'
mkdir '%vInstallDir%\\HcUser2\\files'

CopyFile 'HcUser2.Inf'  '%vInstallDir%\\HcUser2\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\HcUser2\\SwSetup3.Exe' vFpLog

CopyFile 'Hcpdll.dll'   '%vInstallDir%\\HcUser2\\files\\Hcpdll.dll'    vFpLog
CopyFile 'Hcpntdll.dll' '%vInstallDir%\\HcUser2\\files\\Hcpntdll.dll'  vFpLog
CopyFile 'Hardcopy.exe' '%vInstallDir%\\HcUser2\\files\\Hardcopy.exe'  vFpLog
CopyFile 'Hrdcpy32.exe' '%vInstallDir%\\HcUser2\\files\\Hrdcpy32.exe'  vFpLog
CopyFile 'Hardcopy.txe' '%vInstallDir%\\HcUser2\\files\\ReadMe.txt'    vFpLog

ChangeFileValue         '%vInstallDir%\\HcUser2\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
DeleteFile              '%vInstallDir%\\HcUser2\\SwSetup.alt'



// ------------ beginn hardcopy benutzer-gesteuert --------------- //
// ----------------- uninstall über registry --------------------- //
fputs vFpLog '\nSwSetup - Hardcopy - User3 - Uninstall über Registry\n'
mkdir '%vInstallDir%\\HcUser3\\files'

CopyFile 'HcUser3.Inf'  '%vInstallDir%\\HcUser3\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\HcUser3\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\HcUser3\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\HcUser3\\SwSetup3.Exe' vFpLog

CopyFile 'Hcpdll.dll'   '%vInstallDir%\\HcUser3\\files\\Hcpdll.dll'    vFpLog
CopyFile 'Hcpntdll.dll' '%vInstallDir%\\HcUser3\\files\\Hcpntdll.dll'  vFpLog
CopyFile 'Hardcopy.exe' '%vInstallDir%\\HcUser3\\files\\Hardcopy.exe'  vFpLog
CopyFile 'Hrdcpy32.exe' '%vInstallDir%\\HcUser3\\files\\Hrdcpy32.exe'  vFpLog
CopyFile 'Hardcopy.txt' '%vInstallDir%\\HcUser3\\files\\Liesmich.txt'  vFpLog
CopyFile 'Hardcopy.txe' '%vInstallDir%\\HcUser3\\files\\ReadMe.txt'    vFpLog

ChangeFileValue         '%vInstallDir%\\HcUser3\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
ChangeFileValue         '%vInstallDir%\\HcUser3\\SwSetup.Inf' 'd:\\\\SwSetup\\\\Hardcopy' '%vInstallDirB%\\\\HcUser' vFpLog
DeleteFile              '%vInstallDir%\\HcUser3\\SwSetup.alt'




// ------------ beginn hardcopy install über internet ------------ //
fputs vFpLog '\nSwSetup - Hardcopy - über Internet\n'
mkdir '%vInstallDir%\\Internet.Hcp'

CopyFile 'HcInter.Inf'  '%vInstallDir%\\Internet.Hcp\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetup.Int'  '%vInstallDir%\\Internet.Hcp\\SwSetup.Exe'  vFpLog
//CopyFile 'WinInet.Dll'  '%vInstallDir%\\Internet.Hcp\\WinInet.Dll'  vFpLog


// ------------ beginn Beispiel Sicherung Verzeichnis --------------- //
fputs vFpLog '\nSwSetup - Save\n'
mkdir '%vInstallDir%\\Save'

CopyFile 'save.Inf'     '%vInstallDir%\\Save\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\Save\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\Save\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\Save\\SwSetup3.Exe' vFpLog

ChangeFileValue         '%vInstallDir%\\Save\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
DeleteFile              '%vInstallDir%\\Save\\SwSetup.alt'


// ------------ beginn Internet CGI-Beispiele --------------- //
If __WinVersion__ == 4
	fputs vFpLog '\nSwSetup - Internet-CGI\n'
	mkdir '%vInstallDir%\\iServer\\Root\\Html'
	mkdir '%vInstallDir%\\iServer\\Root\\Images'
	mkdir '%vInstallDir%\\iServer\\Root\\Scripts'

	CopyDirRecursive 'iserver'     '%vInstallDir%\\iServer'  vFpLog
	CopyFile 'SwSetup.Exe'         			'%vInstallDir%\\iServer\\Root\\Scripts\\SwSetup.Exe'  vFpLog

	// fehler von winzipse beseitigen (lange dateinamen)
	CopyFile 'iserver\\Root\\Scripts\\test_use.inf' '%vInstallDir%\\iServer\\Root\\Scripts\\test_user.inf'  vFpLog
	DeleteFile '%vInstallDir%\\iServer\\Root\\Scripts\\test_use.inf'  

	ChangeFileValue	'%vInstallDir%\\iServer\\httpsvr.ini' 'd:\\SwSetup' '%vInstallDir%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\httpsvr.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Default.htm' 'd:\\SwSetup' '%vInstallDir%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Default.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Html\\swhome.htm' 'd:\\SwSetup' '%vInstallDir%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Html\\swhome.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Html\\Counter.htm' 'd:\\SwSetup' '%vInstallDir%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Html\\Counter.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Scripts\\new_user.inf' 'd:\\\\SwSetup' '%vInstallDirB%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Scripts\\new_user.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Scripts\\test_user.inf' 'd:\\\\SwSetup' '%vInstallDirB%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Scripts\\test_user.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Scripts\\upd_user.inf' 'd:\\\\SwSetup' '%vInstallDirB%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Scripts\\upd_user.alt'
	ChangeFileValue	'%vInstallDir%\\iServer\\Root\\Scripts\\dir.inf' 'd:\\\\SwSetup' '%vInstallDirB%' vFpLog
	DeleteFile	'%vInstallDir%\\iServer\\Root\\Scripts\\dir.alt'
EndIf

// ------------ beginn sendmail beispiel --------------- //
fputs vFpLog '\nSwSetup - Sende Mail\n'
mkdir '%vInstallDir%\\SendMail'

CopyFile 'sendmail.Inf' '%vInstallDir%\\SendMail\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\SendMail\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\SendMail\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\SendMail\\SwSetup3.Exe' vFpLog

ChangeFileValue         '%vInstallDir%\\SendMail\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann' '%__Date__% / SwSetup-Generierung' vFpLog
DeleteFile              '%vInstallDir%\\SendMail\\SwSetup.alt'


// ------------ beginn Beispiel Logdateien (SwList.Exe) ----------- //
fputs vFpLog '\nSwSetup - SwList\n'
mkdir '%vInstallDir%\\Log'

CopyFile 'SwList.Exe' '%vInstallDir%\\Log\\SwList.Exe'  vFpLog
CopyFile 'SwList.log' '%vInstallDir%\\Log\\SwList.ini'  vFpLog
CopyFile 'pc0056.txt' '%vInstallDir%\\Log\\pc0056.txt' vFpLog
CopyFile 'pc0058.txt' '%vInstallDir%\\Log\\pc0058.txt' vFpLog
CopyFile 'pc0452.txt' '%vInstallDir%\\Log\\pc0452.txt' vFpLog
CopyFile 'pc0453.txt' '%vInstallDir%\\Log\\pc0453.txt' vFpLog
CopyFile 'pc0505.txt' '%vInstallDir%\\Log\\pc0505.txt' vFpLog
CopyFile 'pc0577.txt' '%vInstallDir%\\Log\\pc0577.txt' vFpLog
CopyFile 'pc0578.txt' '%vInstallDir%\\Log\\pc0578.txt' vFpLog
CopyFile 'pc0717.txt' '%vInstallDir%\\Log\\pc0717.txt' vFpLog
CopyFile 'swlist.txt' '%vInstallDir%\\Log\\swlist.txt' vFpLog


// ------------ beginn sap --------------- //
fputs vFpLog '\nSwSetup - SAP\n'
mkdir '%vInstallDir%\\sap\\sapgui'

vTestRechner = 'test 00'
vProdRechner = 'prod 02'
vSapLokal    = 'c:\\SapAG\\SapGui'

vText[1] = '\nWill you change the standard-settings for the ''SAP-installation-sample'' ?'
vText[0] = 'Möchten Sie für das ''SAP-Installations-Beispiel'' Standardwerte vorgeben ?\n\n(Es erfolgt noch keine Installation, die Werte werden lediglich für den Aufbau der Beispiel-Datei gespeichert.)'

MessageBox vText[vLanguage] 36
if __error__ == 6
	vText[1] = 'Please give the directory for the SAP-user-install of the local disk,\r\ne.g.: c:\\sapgui'
	vText[0] = 'Bitte geben Sie hier das Verzeichnis ein, wo später alle SAP-Programme auf der lokalen Festplatte installiert werden sollen,\r\nz.B.: c:\\sapgui'
	vDialogRc = Dialog vText[vLanguage] vSapLokal
	if vDialogRc == 'CANCEL'
		fputs vFpLog 'Installation durch Benutzer abgebrochen\n'
	endif

	vText[1] = 'Please give the host and instance for the SAP-Test,\r\ne.g.: test 00\r\n\tor\r\n/H/test/S/sapdp00'
	vText[0] = 'Bitte geben Sie hier Rechner und Instance für Ihre SAP-Testanwendung ein,\r\nz.B.: test 00\r\n\toder\r\n/H/test/S/sapdp00'
	vDialogRc = Dialog vText[vLanguage] vTestRechner
	if vDialogRc == 'CANCEL'
		fputs vFpLog 'Installation durch Benutzer abgebrochen\n'
	endif

	vText[1] = 'Please give the host and instance for the SAP-production,\r\ne.g.: prod 02\r\n\tor\r\n/H/prod/S/sapdp02'
	vText[0] = 'Bitte geben Sie hier Rechner und Instance für Ihre SAP-Produktionsanwendung ein,\r\nz.B.: prod 02\r\n\toder\r\n/H/prod/S/sapdp02'
	vDialogRc = Dialog vText[vLanguage] vProdRechner
	if vDialogRc == 'CANCEL'
		fputs vFpLog 'Installation durch Benutzer abgebrochen\n'
	endif
endif

CopyFile 'Sap.Wri'      '%vInstallDir%\\sap\\Sap.Wri'      vFpLog
CopyFile 'Sap.Inf'      '%vInstallDir%\\sap\\SwSetup.Inf'  vFpLog
CopyFile 'SwSetup.Exe'  '%vInstallDir%\\sap\\SwSetup.Exe'  vFpLog
CopyFile 'SwSetupI.Exe' '%vInstallDir%\\sap\\SwSetupI.Exe' vFpLog
CopyFile 'SwSetup3.Exe' '%vInstallDir%\\sap\\SwSetup3.Exe' vFpLog

ChangeFileValue         '%vInstallDir%\\sap\\SwSetup.Inf' 'xx.xx.xxxx / Weckmann'               '%__Date__% / SwSetup-Generierung' vFpLog
ChangeFileValue         '%vInstallDir%\\sap\\SwSetup.Inf' 'd:\\\\SwSetup\\\\Sap'               '%vInstallDirB%\\\\sap' vFpLog
ChangeFileValue         '%vInstallDir%\\sap\\SwSetup.Inf' 'vInstallDirSap  = ''c:\\\\Sapgui''' 'vInstallDirSap  = ''%vSapLokal%''' vFpLog
ChangeFileValue         '%vInstallDir%\\sap\\SwSetup.Inf' 'vTestRechner = ''test 00'''         'vTestRechner = ''%vTestRechner%''' vFpLog
ChangeFileValue         '%vInstallDir%\\sap\\SwSetup.Inf' 'vProdRechner = ''prod 00'''         'vProdRechner = ''%vProdRechner%''' vFpLog
DeleteFile              '%vInstallDir%\\sap\\SwSetup.alt'
// ------------ ende sap ----------------- //


fputs vFpLog '\nEnde - Generierung\n'

SetIniFile '%__WindowsVerzeichnis__%\\swsetup.ini' 'Install' 'InstallDir' vInstallDir

fclose vFpLog


vText[1] = 'The Samples have been to ''%vInstallDir%'' copied, you can now test the samples !'
vText[0] = 'Die Beispiele wurden nach ''%vInstallDir%'' kopiert und können nun getestet werden !'
MessageBox vText[vLanguage]


If __WinVersion__ >= 4
	Exec 'explorer %vInstallDir%' 1
	// Exec 'SwSetupU.Exe %vInstallDir%\\SendMail\\SwSetup.Inf' 1
EndIf