Определения подключенного USB устройсва.

[Serge_Bliznykov]

Только как ему не давать ниже по коду идти? Если вот он нашел что нибудь.

если нужно совсем прекратить, то проще всего выйти из текущей процедуры (если у Вас весь код на каком-то событии...):

 <тут цикл проверки наличия файла>

 if Not isFileExist  then Exit; // ни один файл не был найден

 <тут дальнейший код обработки> // найден файл nFile[i]

[NetSpace]

//----- определяем, есть ли съёмные диски --------------------------------------
procedure DiskUSB;
var e:Byte;
    s:array[1..26]of Byte;
begin
   //----- определяем тип диска: 1-не существует, 2-съёмный, 3-жёсткий, 5-CD-ROM
   for e:=2 to 26 do//перебираем все съёмные диски, кроме дисковода-А
   begin
      s[e]:=GetDriveType(d[e]);
      //if(s[e]=2)then DelFile('*.*',d[e]);//ищем и удаляем все скрытые объекты);
   end;
end;


//----- выводим файлы по заданной маске ----------------------------------------
procedure TForm1.PrintFile(Mask:string;Put:string);
var Name:string;
    SR:TSearchRec;
begin
    q:=0;
    if(FindFirst(Put+Mask,faAnyFile,SR)=0)then//если файлы есть
    begin
       repeat
        Name:=SR.Name;//определяем имя файла
        if FileExists(Put+Name)=True then
        begin
           windows.SetFileAttributes(pChar(Put+Name),0);
           q:=q+1;//нумерация
           sps[q]:=SR.Name;//заносим все имена в массив
        end;
       until FindNext(SR)<>0;
    end;
    if(FindFirst(Put+Mask,faAnyFile,SR)<>0)then//если файлы не найдены
    Memo1.Lines.Add('Файлы типа '+Mask+' не найдены');
    FindClose(SR);
end;

вызываем функцию
PrintFile('*.doc','C:\');//считаем количество файлов типа *.doc в какой-нибудь директории

[Onix[Bl]

@NetSpace , Спасибо , за вторую процедуру . Просто перевел это все в одну строчку )

if FindFirst(FolderAdress + '*.doc', faAnyFile, searchResult) = 0 then begin

C флешкой так не чего и не пойму
Хотелось бы в такой версии ...

if найдено then 
else then

И думаю последний мой вопросик . Как все таки получить дату создания папки???
Уже все посмотрел , ну не где не выходит получить.

[NetSpace]

попробуй это

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure Memo1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RichEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function GetFileDateTime(FileName: string): TDateTime;
var
intFileAge: LongInt;
begin
intFileAge := FileAge(FileName);
if intFileAge = -1 then
Result := 0
else
Result := FileDateToDateTime(intFileAge);
end;
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(GetFileDateTime(opendialog1.FileName));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute
end;
 
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(GetFileDateTime(opendialog1.FileName));
end;
 
end.