Variablen in Prozudur übergeben

[Klaus01]

Guten Morgen,

habe es jetzt nicht getestet, sollte aber ungefähr so gehen:

Delphi-Quellcode:

Program Project2;

{$APPTYPE CONSOLE}

uses
  Windows,SysUtils,ImageHlp,Dialogs,ShellApi;

type
  TDriveArray : Array of String;  // neu

////Get Drives Function

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 + ':\';
      Idx := Idx + 1;
    end;
  end;
 // die Ausgabe wird nicht gebraucht
 { if Length(Drives) > 0 then
    for Idx := Low(Drives) to High(Drives) do
     WriteLn(Drives[Idx]);
}
  result:=drives;

end;
//

////Deleting Files Procedure
Procedure DeletingFiles(ADrives:TDriveArray;Filename:String);  // neuer Parameter
var
  myFile : TextFile;
  APathFound: String;
  HDD: Char;
  i:Byte;

begin
  for i:=low(ADrives) to high(ADrives) do
    if SearchForFile(ADrives[i] + ':\', Filename, APathFound) then
    begin
       repeat
          DeleteFile(ApathFound+Filename);
          WriteLn(myFile, ':: '+ Filename + ' available on: ' + APathFound)
       until not SearchForFile(ADrives[i] + ':\', Filename, APathFound);
      end
    else
    WriteLn(myFile, Filename + ' is not available on ', ADrives[i]);
end;
//
//