Einzelnen Beitrag anzeigen

moelski

Registriert seit: 31. Jul 2004
1.110 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Relativer Pfad zu absoluter Pfad

  Alt 17. Mai 2009, 11:37
Moin !

Danke !

Damit gehts:
Delphi-Quellcode:
function SimplifyPath(var path : string) : integer;
var
  lpFileName : pchar;
  lpBuffer : array[0..MAX_PATH] of char;
begin
  lpFileName := PCHAR(path);
  result := GetFullPathName(lpFileName, MAX_PATH, lpBuffer, lpFileName);
  path := lpBuffer;
end;
Dominik Schmidt
Greetz Dominik

I love Delphi 2007/2010
  Mit Zitat antworten Zitat