Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Relativer Pfad zu absoluter Pfad (https://www.delphipraxis.net/134179-relativer-pfad-zu-absoluter-pfad.html)

moelski 17. Mai 2009 10:19


Relativer Pfad zu absoluter Pfad
 
Moin !

Hat jemand zufällig eine Funktion zur Hand dir mir aus einem Relativem Pfad einen absoluten Pfad erstellt?

Der Anwendungspfad ist ja bekannt, also müsste das eigentlich klappen.
Gibt es da nicht evtl. sogar einen API Aufruf für?

Suche hat mich leider nicht weiter gebracht.

himitsu 17. Mai 2009 10:27

Re: Relativer Pfad zu absoluter Pfad
 
MSDN-Library durchsuchenGetFullPathName

moelski 17. Mai 2009 10:37

Re: Relativer Pfad zu absoluter Pfad
 
Moin !

Danke ! :thumb:

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;

Hawkeye219 17. Mai 2009 11:01

Re: Relativer Pfad zu absoluter Pfad
 
Hallo,

bei solchen Fragen lohnt eigentlich immer ein Block in die Unit SysUtils: Delphi-Referenz durchsuchenExpandFileName

Gruß Hawkeye

moelski 17. Mai 2009 11:13

Re: Relativer Pfad zu absoluter Pfad
 
Moin !

Huch ... Noch einfacher :)
Ich hatte in der SysUtils nachgesehen, aber habe beim Überfluegen nix passendes gefunden.
Habe aber auch eher nach sowas wie GetAbsolutPath gesucht.

Danke.

himitsu 17. Mai 2009 11:40

Re: Relativer Pfad zu absoluter Pfad
 
macht nix, hatte das auch (absichtlich) übersehn :oops:

kommt man aber auch nicht drauf, wenn man da noch was anderes kennt, was absolut nicht dem hier Gesuchten entspricht :nerd:
> MSDN-Library durchsuchenGetExpandedName


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz