Как искать только exe файлы в этой программе?

[Xchel]

uses Dos,crt;
type
a=array[1..16] of byte;
const
signature:a=($85,$3E,$1C,$00,$00,$57,$68,$80,$3B,$D3,$4A,$E8,$E3,$F4,$FF,$FF);
var
f:file;
block:byte;

procedure FindSign(findFile:string);
var i:integer;

begin
assign(f,findFile);
{$I-}
reset(f,1);
{$I+}

if IOResult<>0 then
begin
writeln(findFile,' -  ошибка доступа к файлу');
exit;
end;
if (filesize(f)>=400000) then begin close(f); exit; end;
i:=1;
while not EOF(f) do
begin
blockread(f,block,1);
if block=signature[i] then
begin
if i=16 then
begin
writeln(findFile,' - NAIDENA SIGNATURA');
exit;
end
else i:=i+1;
end
else i:=1;
end;
close(f);
end;

procedure FileFind(Dir:string;FindName:string);
var
SRec,srec1:SearchRec;

begin
FindFirst(Dir+FindName,AnyFile,SRec);
while DosError=0 do
begin
with SRec do

if Attr and (VolumeID+Directory)=0 then
begin
FindSign(Dir+Name);
end;
FindNext(SRec);
end;

FindFirst(Dir+'*.*',Directory or ReadOnly or Hidden or SysFile, SRec1);
while DosError=0 do

begin
writeln(srec1.name);
writeln(dir+srec1.name);
if (srec1.Attr and Directory <> 0) and (srec1.Name[1] <> '.') then

FileFind(Dir+srec1.Name+'/',FindName);

FindNext(SRec1);
end;

end;

begin
FileFind('c:/progra~1/','*.*');
writeln('poisk okonchen, enter');
readln;
end.

[vlad1389]

FileFind('c:/progra~1/','*.exe');

[Xchel]

Сообщение от vlad1389

FileFind('c:/progra~1/','*.exe');

если бы так просто.. Знаю, что eсли первые два байта MZ, то это файл EXE. Кто-нибудь может написать примерно код, как проверить файл exe или нет?

[ViktorR]

Например так:
1. - Создать файловую переменную текстового типа
2. - Составить список исследуемых файлов
3. - Получить указатель на первый/следующий файл из списка
4. - Прочитать первую строку
5. - Проверить, на равенство первых двух байт сигнатуре: 4D5A
6. - Если нет, то закрыть указатель и перейти к п. 3
7. - Если да, то имя файла поместить в новый список
8. - Вывести новый список на экран.


Как-то так, ...

[Alex11223]

Что за бред? Если у вас есть путь/имя файла, то вы можете проверить его имя без чтения содержимого файла.

А почему вы решили, что FindFirst(.... + '*.exe', ...) не будет работать?

[ViktorR]

Да почему бред?
Дело в том что, как понятно из последнего сообщения, "Вася" расширение файла изменил на ...

Как-то так, ...

[Xchel]

Сообщение от ViktorR

Например так:
1. - Создать файловую переменную текстового типа
2. - Составить список исследуемых файлов
3. - Получить указатель на первый/следующий файл из списка
4. - Прочитать первую строку
5. - Проверить, на равенство первых двух байт сигнатуре: 4D5A
6. - Если нет, то закрыть указатель и перейти к п. 3
7. - Если да, то имя файла поместить в новый список
8. - Вывести новый список на экран.


Как-то так, ...

А можете хоть примерно код написать? Никак не соображу...