Hag,
please move your program into a c:\users\cUsername folder.
And it works fine!
Bye
Marco
it crashes except when it's opened as an administrator
would it be appropriate to detect win 7 and give them a message to open as an administrator?
GLOBAL cHomeDir := "", cInstallDir := "" // Datenverzeichnis, Installationsverzeichis
PROCEDURE Main (cPath)
DEFAULT cPath := ""
cPath := CharRem ("-/", cPath)
IF IsWin98() .or. Upper (cPath) == "HOME"// .or. IsWinME ()
cInstallDir := cFilePath (GetModuleFileName () )
cHomeDir := cInstallDir
ELSE
cInstallDir := cFilePath (GetModuleFileName () )
#IFDEF Demo // Demo wird im eigenen Nutzerverzeichnis erstellt
cUserDir := GetEnv ("UserProfile")+"\Eigene Dateien\"
#ELSE
cUserDir := "c:\ProgramData" //GetEnv ("AllUsersProfile")+"\Dokumente\"
#ENDIF
cHomeDir := cUserDir+"Wintyre\"
ENDIF
SET DEFAULT TO (cHomeDir)
IniFile := Set (_SET_DEFAULT)+"Wt32.ini"
SetErrorLog (cHomeDir+"Error.log") // Errorlog ins Datenverzeichnis schreiben
SET HELPFILE TO cInstallDir+"\Wintyre.chm" // Hilfedatei
cHandbuch := cInstallDir+"\WIntyre.pdf" // Handbuchdatei
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 78 guests