| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выполняется только первый файл, который я создаю, что делать???

baromir ©   (2004-04-06 11:43:00) 

if FindFirst('*.cer', faAnyFile, searchResult2) = 0 then
  begin
   repeat
            GetDir  (0,Sdir);
           aaa6:= sdir+'\'+ searchResult2.Name;
           aa6_1:=PAnsiChar(aaa6);

                       SetCurrentDir('c:\2\openssl');
                                 Vfb:="";
                                AssignFile( Vfb, aaa6+'.bat' );
                                Rewrite(Vfb);
                                Append( Vfb);
          SetCurrentDir('c:\2\openssl');
        GetDir  (0,Sdir);
Writeln( Vfb,'openssl.exe x509 -in '+ aaa6 +' -noout -text >'+aaa6+'.info');
   Flush( Vfb );
CloseFile( Vfb );
aaa6:=aaa6+'.bat';
ShellExecute(Handle,'open',Pchar(aaa6), nil,nil, SW_SHOWNORMAL);

---

xShadow   (2004-04-06 12:16:00) [1]

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
Begin
   Repeat
   Until FindNext(sr) <> 0;
   FindClose(sr);
end;

---

xShadow   (2004-04-06 12:14:00) [2]

Что то я FindNext не бачу в данном коде

---

Наверх