Eigene Dateien unter Vista sicher abspeichern

[Frabbing]

Folgende Prozedure könnte aufgerufen werden, um im Application-Pfad einen eigenen Programmordner anzulegen und abzurufen, um dort alle seine Dateien abzulegen. Diese Löung funktioniert auch unter Vista ohne Adminrechte.
Im Hauptprogramm wird zur Demonstration dann eine Ini-Datei angelegt (ob .ini jetzt sinnvoll ist oder nicht mag hier mal egal sein)

Declare appdata$

Proc GetAppData
  Parameters mydir$
  Def SHGetSpecialFolderLocation(3) !"SHELL32","SHGetSpecialFolderLocation"
  Def SHGetPathFromIDList(2) !"SHELL32","SHGetPathFromIDListA"
  Def CoTaskMemFree(1) !"OLE32","CoTaskMemFree"
  DEF MakeSureDirectoryPathExists(1) ! "dbghelp.dll","MakeSureDirectoryPathExists"
  Declare lpidl&,result$,buffer#
  Dim buffer#,280
  If SHGetSpecialFolderLocation(GetActiveWindow(),26,Addr(lpidl&))=0    '-> 26 = CSIDL_APPDATA
    IfNot SHGetPathFromIDList(lpidl&,buffer#)=0
      result$=String$(buffer#,0)
    EndIf
  EndIf
  CoTaskMemFree(lpidl&)
  Dispose buffer#
  If result$<>""
    result$=Trim$(result$)+"\"+mydir$+"\"
    MakeSureDirectoryPathExists(Addr(result$))
  EndIF
  Return result$
EndProc

Window 0,0-%maxx,400

appdata$=GetAppData("Programmname")
If appdata$<>""
  WRITEINI appdata$+"Programmname.ini","Anwendung","Schlüssel"="Wert"
  Print "Ordner \q"+appdata$+"\q wurde erstellt."
  Print "Ini-Datei \qProgrammname.ini\q wurde erstellt."
Else
  Print "Es konnte kein Ordner ermittelt und erstellt werden!"
Endif

WaitInput
End

Vielleicht könnte Roland das direkt einbauen, z.B. als XProfanvariable $apppath oder $appdir.

[Andreas Miethe]

Zitat von Frabbing

Vielleicht könnte Roland das direkt einbauen, z.B. als XProfanvariable $apppath oder $appdir.

Hallo Frank,

übersehen ?

"Screenshot" vom Token unter Vista - wie sieht der aus?

[Frabbing]

Zitat von Andreas Miethe

Hallo Frank,

übersehen ?

"Screenshot" vom Token unter Vista - wie sieht der aus?

Ja, in der Tat. Roland hat's schon umgesetzt, um so besser!

Ich lass den Thread trotzdem bestehen, hat ja nicht jeder das neuste Update.

[Andreas Miethe]

Zitat von Frabbing

Ja, in der Tat. Roland hat's schon umgesetzt, um so besser!

Ich lass den Thread trotzdem bestehen, hat ja nicht jeder das neuste Update.

Der Code kann ja auch genutzt werden um andere Systemordner zu ermitteln. So etwas ist immer brauchbar

[Frabbing]

Auf jeden Fall!