Variablen in Prozudur übergeben

[Klaus01]

Delphi-Quellcode:

function GetDrives:TDriveArray;  // funktion gibt die Laufwerke zurück; Parameter FileName entfernt 
var 
  Drives: TDriveArray; 
  Idx: Integer; 
  Drive: Char; 
begin 
  SetLength(Drives, 0); 
  Idx := 0; 
  for Drive := 'C' to 'Z' do 
  begin 
    if GetDriveType(PChar(Drive + ':/')) = DRIVE_FIXED then 
    begin 
      SetLength(Drives, Idx + 1); 
      Drives[Idx] := Drive + ':\';   // hier setzt Du :\ an den laufwerksbuchstaben
      Idx := Idx + 1; 
    end; 
  end;

und hier auch
if SearchForFile(ADrives[i] + ':\', Filename, APathFound) then An einer Stelle solltest Du es entfernen.

Gruesse
Klaus