Thema
:
Delphi
Relativer Pfad zu absoluter Pfad
Einzelnen Beitrag anzeigen
moelski
Registriert seit: 31. Jul 2004
1.110 Beiträge
Delphi 2010 Professional
#
3
Re: Relativer Pfad zu absoluter Pfad
17. Mai 2009, 11:37
Moin !
Danke !
Damit gehts:
markieren
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
Zitat
moelski
Öffentliches Profil ansehen
Mehr Beiträge von moelski finden