Variablen in Prozudur übergeben

[-187-]

Morgen, ich habe nun noch ein Problem mit meinem Programm und krieg es nicht hin =)

Hier mal ein Teil-Code !

Delphi-Quellcode:

Program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  Windows,SysUtils,ImageHlp,Dialogs,ShellApi;

////Get Drives Procedure
var
  Drive: Char;
  Drives: array of string;
  Idx: Integer;
Procedure GetDrives(Filename:String);
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;
 
  if Length(Drives) > 0 then
    for Idx := Low(Drives) to High(Drives) do
     WriteLn(Drives[Idx]);
end;
//
 
////Deleting Files Procedure
var
  myFile : TextFile;
  APathFound: String;
  HDD: Char;
Procedure DeletingFiles(Filename:String); 
  begin 
  for HDD:='C' to 'Z' do 
    if SearchForFile(HDD + ':\', Filename, APathFound) then 
    begin 
       repeat 
          DeleteFile(ApathFound+Filename); 
          WriteLn(myFile, ':: '+ Filename + ' available on: ' + APathFound) 
       until not SearchForFile(HDD + ':\', Filename, APathFound); 
      end 
    else 
    WriteLn(myFile, Filename + ' is not available on ', HDD); 
end;
//
//

Wie man sieht arbeitet Deleting Files Procedure mit den Laufwerken c:\ - z:\. Ich hab mir aber eine Prozdur geschrieben um die vorhandenen Laufwerke auszulesen und somit möchte ich das Deleting Files Procedure nur mit den ausgelesenen Laufwerken arbeitet. Ich krieg den Code aber nich hin kann mir jemand helfen?

MFG