Скан диска

[ZYRGiX]

Подскажите пожалуйста, как будет выглядеть следующий код: сканируем диски (от A до Z), если найден файл с расширением .mp3, то копируем наш файл в ту директорию .

[rpy3uH]

фунцкия поиска файла в папке, если не ничего не найдено, то результат пустая строка.

function FindFile(const DirPath: String;FN:string):string;
var
  Status: THandle;
  FindData: TWin32FindData;
begin
  Result:='';

  Status := FindFirstFile(PChar(DirPath + '*.*'), FindData);
  if Status=INVALID_HANDLE_VALUE then exit;
  repeat
   if (FindData.cFileName[0]='.') or (FindData.cFileName='..') then continue;
   if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY then
    begin
     result:=FindFile(DirPath + FindData.cFileName + '\', FN);
     if Result<>'' then exit;
    end;
   if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)<>FILE_ATTRIBUTE_DIRECTORY then
    if FN=FindData.cFileName then
     begin
      Result:=DirPath+FindData.cFileName;
      exit;
     end;
   Application.ProcessMessages;
  until not FindNextFile(Status, FindData);
  Windows.FindClose(Status);
end;

для поиска на всём диске укажи, например, С:\ (слеш в конце обязателен)

[ZYRGiX]

Как я понял, данный код будет искать файл только по одному диску, в то время как мне надо искать файл во всех дискам (по всему венчестеру).

[NoName_emaNoN]

Просто используй компонент DriveComboBox,
оттуда вытащи все имена дисков, потом сканируй.

[rpy3uH]

получение списка дисков

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  LogDrives: set of 0..25;
  str:string;
begin
  integer(LogDrives) := GetLogicalDrives;
  for i := 0 to 25 do
   if (i in LogDrives) then
    begin
     str:= chr(i + 65)+':';
     if GetDriveType(pchar(str))=DRIVE_FIXED then
      ListBox1.Items.Add(str);
    end;
end;

[execom]

вщт мой вариант получения дисков..

Procedure Disks;
var
   i1 : integer;
   i2 : integer;
   i3 : integer;
   i4 : integer;
  Buf : array [0..95] of char;
begin
GetLogicalDriveStrings(96,Buf);
//Получаем строку дисков
for i1:=0 to 25 do
if Buf[i1*4+2]<>#92 then break;
//Получаем количество дисков
if Buf[0]=#65 then i4:=1 else i4:=0;
//Если первый локал - A то смотрим начиная со второго
for i2:=i4 to i1-1 do //Перебор дисков
  begin
    i3:=GetDriveType(@Buf[i2*4]);//Определяем тип диска
    if  (i3<>0)//Если не диск с неопределённым типом
    and (i3<>1)//и не диск с отсутствующим корневым каталогом
    and (i3<>5)//и не CD-ROM то..
    then FindFile(@Buf[i2*4]);//Поиск на этом диске
  end;
end;

[SunKnight]

function FindFile(const DirPath: String;FN:string):string;
FN:string - немогу понять, что это за параметр для поиска?

[rpy3uH]

ну это и есть имя файла который ты хочешь найти