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