Ivan131
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[more] [more]
[more]
Код:
[___Code]
var
// задаём переменную глобально, для всего скрипта
Mask: string;
procedure RunMyProg(FileNeme: string);
begin
// здесь что нибудь делаем с найденым файлом
MsgBox(FileNeme, mbInformation, MB_OK );
end;
function FindFile(Path: string): Boolean;
var
FSR, DSR: TFindRec;
FindResult: Boolean;
begin
Result:= False;
if Path[Length(Path)] <> '\' then Path:= Path + '\';
FindResult:= FindFirst(Path + Mask, FSR);
try
while FindResult do
begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
begin
RunMyProg(Path + FSR.Name);
Result:= True;
Exit;
end;
FindResult:= FindNext(FSR);
end;
FindResult:= FindFirst(Path + '*.*', DSR);
while FindResult do
begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and
not ((DSR.Name = '.') or (DSR.Name = '..')) then
FindFile(Path + DSR.Name);
FindResult:= FindNext(DSR);
end;
finally
FindClose(FSR);
FindClose(DSR);
end;
end;
function InitializeSetup(): Boolean;
var
i: Integer;
ArrayOfMask: TArrayOfString;
StartFolder: string;
begin
StartFolder:= ExpandConstant('{pf}\Inno Setup 5'); // задаём папку откуда начинать поиск
ArrayOfMask:= ['*n*.txt', 'R*.txt', '*m*.txt']; // заполняем массив масок для поиска
for i:= 0 to GetArrayLength(ArrayOfMask)-1 do // перебираем весь масив масок
begin
Mask:= ArrayOfMask[i];
if FindFile(StartFolder) then Break;
end;
end;
|
|
Всего записей: 5 | Зарегистр. 30-11-2016 | Отправлено: 14:37 03-12-2016 | Исправлено: Ivan131, 14:39 03-12-2016 |
|
