elko68 hat geschrieben:Im Standardverzeichnis installiere ich kaum Programme weil es oft Probleme gab.
Du solltest aber davon ausgehen, das Dein Programm bei anderen im Standardverzeichnis installiert wird,
und dafür sorgen, das es dort keine Probleme gibt. Also keine Schreibzugriffe auf das Programmverzeichnis.
Einstellungen nach %APPDATA%\elko68\Mein Supperduppi-Programm\.
Code: Alles auswählen
Procedure.s GetPrefsFile(AppName.s, FileName.s = "settings.prefs", Publisher.s = "elko68")
Protected Path.s, slash.s
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
slash = "\"
Path = GetEnvironmentVariable("APPDATA") + "\"
CompilerDefault
slash = "/"
Path = GetHomeDirectory() + "."
CompilerEndSelect
If Publisher
Path + Publisher + slash
If Not FileSize(Path) = - 2
CreateDirectory(Path)
EndIf
EndIf
Path + AppName + slash
If Not FileSize(Path) = - 2
CreateDirectory(Path)
EndIf
If FileSize(Path) = -2
ProcedureReturn Path + FileName
EndIf
EndProcedure
Müssen schon sehr dumme Hacker sein, die Deine Proggys nicht finden
Gruß
Thomas