Delphi-PRAXiS

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

Die Muhkuh 16. Aug 2004 20:49


Pfad herausfinden
 
Hi,


angenommen ich hab irgendwo auf dem PC eine Datei namens Test.exe. Wie bekomme ich den PFad zu der Datei heraus?

Pseudemys Nelsoni 16. Aug 2004 20:49

Re: Pfad herausfinden
 
findfirst(), findnext(), findclose()

Die Muhkuh 16. Aug 2004 20:51

Re: Pfad herausfinden
 
Hi,


thx, werde ich mal gucken.

Hansa 16. Aug 2004 20:54

Re: Pfad herausfinden
 
Zitat:

Zitat von Pseudemys Nelsoni
findfirst(), findnext(), findclose()

Nene, so aber nicht. :stupid: Damit kriegst du alle Dateien in EINEM Verzeichnis raus. z.B. alle die in C:\WINDOWS liegen. Wenn ich die Frage richtig verstehe, dann ist das wahrscheinlich "ExtractFilePath". Wenn das so heißt. :gruebel:

Pseudemys Nelsoni 16. Aug 2004 21:01

Re: Pfad herausfinden
 
nö, er möchte die datei test.exe die auf seinem pc is mit seinem prog finden.

Die Muhkuh 16. Aug 2004 21:21

Re: Pfad herausfinden
 
Hi,

FindFirst isses glaub ich echt nicht. Ich weiß ja nicht wo die Datei ist. Auf C:, D:, E:,... . Keine Ahnung wo die Datei liegt. Und die will ich finden. Nur wie? ExtractFilePath hatte ich schon so probiert:

Delphi-Quellcode:
ExtractFilePath(ParamStr(0)) + 'Test.exe'
ging aber auch nicht.

Luckie 16. Aug 2004 22:00

Re: Pfad herausfinden
 
Dann musst du eben alle Laufwerke mit FindFirst durchsuchen. ParamStr(0) bekommst du nur den Pfad deiner Anwendung.

Die Muhkuh 16. Aug 2004 22:12

Re: Pfad herausfinden
 
Hi Luckie,


wenn ich dann angebe

Delphi-Quellcode:
FindFirst('C:\*.*', faAnyFile, SearchRec) = 0 then...
werden ja nicht die unterordner durchsucht.

Luckie 16. Aug 2004 22:23

Re: Pfad herausfinden
 
Kuck mal in die Code-Lib.

nailor 16. Aug 2004 22:25

Re: Pfad herausfinden
 
suchen: hier im forum (code-lib) nach sakuras rekursivem-ordner-durchsuchen suchen und das verwenden

relativen pfad basteln: " ExtractFilePath(ParamStr(0)) + '\Test.exe' " <<< zu debuggen per "showmessage(pfad)"


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:58 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