[Johny777]

Можно мне пожалуйста пример заполнение массива записей именами файлов найденными по маске с последующим поиском имён но уже из массива (не статичный массив, тк файлов неизвестно сколько)
если по маске ничего не найдено то не заполнять массив (вообще никаких действий)

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

улучшил функцию проверки строки на целое число »

Важно!
должен заметить что криво работает с нулём
откатился к этой:

Код:

function IsInt(const sTestStr: string): Boolean;  
var
  i: Integer;
begin
  Result := False;
  if Length(sTestStr) > 0 then
    for i := 0 to 9 do
      begin
        Result := Pos(IntToStr(i), sTestStr) > 0;
        if Result then
          Break;
      end;
end;

===============================================================================

подбрось пример пожалуйста если не трудно. »

http://forum.oszone.net/post-1968497-631.html

А вобще можно скин убрать с этого окна ??? »

если устроит такой вариант:

читать дальше »

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
Source: steam.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy

[  Code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('steam.cjstyles');
LoadSkin(ExpandConstant('{tmp}\steam.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
  UnloadSkin();
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
  WizardForm.Hide;
  Sleep(200);
  UnloadSkin();
  if ExitSetupMsgBox = False then
  begin
    Cancel := False;
    LoadSkin(ExpandConstant('{tmp}\steam.cjstyles'), '');
    WizardForm.Show;
  end else Cancel := True;
end;

=============================================================

SatHan,
Чтоб мне не спороть чушь: вроде для этого используются хуки. Могут быть слышны маты антивиря
поставь инно ультру и в \Inno Setup 5\Scripts\WindowsHook есть пример