Forum: Programmieren allgemein
by himitsu,
13. Jan 2004
Er such unter umständer schon eine ganze Weile (na gut, bei mir geht es mit N)
Bei mir ist es durchgelaufen.
Du kannst ja mal nach einer Weile an der markierten Stelle einen Haltepunkt legen (z.B. mit F5) und schauen wo dein Programm im Moment ist (z.B. die Maus über RootFolder halten und ins Hint schauen) - danach Haltepunkt weg (F5) und witerlaufen lassen (F9)
procedure...
Forum: Programmieren allgemein
by himitsu,
13. Jan 2004
Und noch mal, mit Matzes Vorschlag drin:
Var i: Integer;
S: String;
S := 'Hallo.txt';
For i := 67 {C} to 90 {Z} do
If GetDriveType(PChar(Chr(i) + ':\')) = DRIVE_FIXED Then
FindAllFiles(Chr(i) + ':', S, True);
Forum: Programmieren allgemein
by himitsu,
13. Jan 2004
z.B. so:
For i := 67 {C} to 90 {Z} do
FindAllFiles(Chr(i) + ':', '*.*', true);