Hilfe mit Dateien

[Daniel B]

Code:

Hi..



vielleicht kann mir Bitte jemand weiterhelfen. Ich hab schon viel in anderen Foren gesucht, aber nichts sinnvolles gefunden was ich gebrauchen kann.



Also, Ich möchte nach Dateien suchen. Ich weiss aber nicht wieviele Laufwerke vorhanden sind. Den jeder Benutzer hat ja einen anderen Rechner. Und hab auch keine Verzeichnisangaben. Ich weiss also nichts.

So sollte es aussehen.



Vielen Dank für die Hilfe.



MfG Daniel :)



procedure TForm1.Button1Click(Sender: TObject);

//Andere Programme der Fa. finden

var

  b, o: Boolean;

  s, t: string;

begin

  b:=False;

  o:=False;



  if FileExists(Datei1.exe, in allen möglichen Laufwerke/Verzeichnissen)

    or (Datei2.exe , in allen möglichen Laufwerken/Verzeichnisse) then

  begin

    b:=True;

    s:=Pfad der 1. oder 2. Datei // Damit ich es woanders benutzen kann

  end;



  if FileExists(Datei3.exe, in allen möglichen Laufwerke/Verzeichnissen)

  then

  begin

    o:=True;

    t:=Pfad der 3. Datei // Damit ich es woanders benutzen kann

  end;



  if b = True then

  begin

    blabla

  end;



  if o = True then

  begin

    blabla

  end;

end;

[Thomas Stutz]

Hallo,

Kombiniere diese 2 Tipps:

Tip 562...Laufwerke auf einem Computer ermitteln ?
[a href="http://www.swissdelphicenter.ch/de/showcode.php?id=562" target="_blank"]http://www.swissdelphicenter.ch/de/showcode.php?id=562[/a]

Tip 154...nach Dateien rekursiv suchen ?
[a href="http://www.swissdelphicenter.ch/de/showcode.php?id=154" target="_blank"]http://www.swissdelphicenter.ch/de/showcode.php?id=154[/a]

[AndreasMascher]

viel einfacher, ich habe deinen code zwar nicht genau angeguckt (sorry) aber ich hatte mal eine procedure gemacht um zu gucken ob ein Ordner leer ist (ggg), wusste nichts besseres!
Das Stichwort heißt TSearchRec, das brauchst du (einfach mal markieren und F1 drücken)


Function TForm1.OrdnerLeer (const Path : string) : boolean;
var
   SR : TSearchRec;
   Lauf : integer;
   suche : string;
begin
   Lauf := 0;
   suche := AddBackslash(Path) + '*.*';  (ist eine Function, die nur n Backslash anhängt, wenn da noch keiner ist)
   if FindFirst(suche, faAnyFile, SR) = 0 then
   begin
      repeat
         lauf := lauf + 1;
      until (lauf > 3) or (FindNext(SR) <> 0);
   end;

(größer als drei habe ich nur gemacht weil:
1 suchergebnis ist meine Exedatei
2 suchergebniss ist ein "." punkt
3 suchergebniss ist ein ".." doppelpunkt (diese ordnergeschichten, einen zurück und so)

<> ist ungleich
also immer wenn FindFirst oder FindNext nicht null ergeben, wurde was gefunden ;-)

SearchRec.Name gibt zum beispiel den Dateinamen der gefundenen datei... wie gesagt, F1


   if lauf > 3 then
   result := false else
   result := true;
end;

[AndreasMascher]

ich idiot, da stehts ja doch drinne [a href="http://www.swissdelphicenter.ch/de/showcode.php?id=154" target="_blank"]http://www.swissdelphicenter.ch/de/showcode.php?id=154[/a] pfffff