Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Bestimmte Datei auf der Festplatte suchen (https://www.delphipraxis.net/5735-bestimmte-datei-auf-der-festplatte-suchen.html)

__patrik 17. Jun 2003 10:48


Bestimmte Datei auf der Festplatte suchen
 
Hallo zusammen,

gibt es eine Delphi-Funktion mit welcher ich die Festplatte nach einer angegebenen Datei durchsuchen kann oder muss man sich sowas selber schreiben, z.B. mit einer rekursiven Suche mit fileexists-funktion?

MfG
patrik

Christian Seehase 17. Jun 2003 10:51

Moin Patrik,

Zitat:

Zitat von __patrik
oder muss man sich sowas selber schreiben,

Ja.
(Ich glaub zumindest nicht, dass sich da seit D5 was dran geändert hat ;-) )

__patrik 17. Jun 2003 11:02

Warum hab ich das nur befürchtet :bounce1:

Dankeschön
patrik

PS: gibts zumindest ne funktion aus der winapi o.ä mit der ich das laufwerk bestimmen kann in dem Windows installiert wurde?

mika 17. Jun 2003 11:25

Hi, diese Funktion liefert dir das Windows Directory und damit auch
den Laufwerksbuchstaben

Delphi-Quellcode:
function getWindowsDir: String;
Var
  _Str: String;
  _pch: PChar;

begin
  _pch := StrAlloc(Max_Path + 1);
  GetWindowsDirectory(_pch, MAX_PATH + 1);
  _Str := strpas(_pch);
  StrDispose(_pch);
  If _str[Length(_str)] <> '\' then _str := _Str + '\';
  Result := _str;
end;
und bei der suche würde ich mal nach den schlagworten findfirst und findnext nachsehen in der OH. Die sind dafür recht gut.

mfg, Mika.

__patrik 17. Jun 2003 11:30

vielen Dank:-)

MfG
patrik

Duffy 17. Jun 2003 12:05

Hallo __patrik,
schau Dir mal den Thread und den Beitrag von Luckie an: http://www.delphipraxis.net/internal...ight=findfiles Na nu ...
bye


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