Søge function til D4 og til Windows NT 4.0

Du kan hente Scaner på www.e-lind.dk, den kan finder filer på 1 drev, så skal du bare lave en funktion der finder alle dine drev, eller snyde lidt og bruge en drivecombobox, den finder alle drev og lægger dem i Items.

den component er d5 og function \"IncludeTrailingBackslash\" virker ikke, hvordan får jeg indbygget den???

Laver en function der Altid sikre at der er en backslash til sidst :

function AddSlash( aStr : String ) : String;
begin
  if ( aStr <> \'\' ) and ( aStr[Length(aStr)] <> \'\\\' ) then Result := aStr + \'\\\'
else Result := aStr;
end;

/Martin

Jeg tror du behøver to komponenter :
http://www.torry.net/vcl/filedrv/search/jafilefind.zip og http://www.torry.net/vcl/filedrv/driveinformation/diskinfo4.zip

Disse to komponenter kan du så hæfte sammen i din kode så den kan finde en fil på alle drev f.eks. :

procedure FindFIle(name: String);
begin
  for a:=0 to 26 do
  begin
    DriveInfo.Drive:=Chr(Ord(\'A\')+a);
    if DriveInfo.DriveType=dtHarddisk then
    begin
      kør søgning her...
    end;
  end;
end;

Jeg undskyller!
men jeg må lige lade sp. ligge ligt, da jeg ikke har tid pågrund af skole!

takker for det!