Thema: Delphi Application Path

Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#33

AW: Application Path

  Alt 8. Okt 2013, 10:21
Ergebnis des untenstehenden Codes:
C:\Users\HATHOR\AppData\Roaming\MyProg

Delphi-Quellcode:
function GetMyPath: string;
var LStr: array[0 .. MAX_PATH] of Char;
s, AppDir : String;
begin
Result:='';
  Application.Name:='MyProg';
  s:= PathDelim + Application.Name;
  SetLastError(ERROR_SUCCESS);
  if SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, @LStr) = S_OK then
      AppDir:= LStr +s;
    Result := AppDir;
  if not DirectoryExists(AppDir) then mkdir(AppDir);
end;

Geändert von hathor ( 8. Okt 2013 um 11:02 Uhr)
  Mit Zitat antworten Zitat