Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

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

 
baromir   (2004-04-06 11:43) [0]

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:14) [1]

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


 
xShadow ©   (2004-04-06 12:16) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
3-1083072251
Sergey_
2004-04-27 17:24
2004.05.23
Настройка BDE


14-1082719463
VictorT
2004-04-23 15:24
2004.05.23
Ещё задачка к пятнице... мы пока к решению не пришли...


14-1083526687
Piter
2004-05-02 23:38
2004.05.23
Пропаганда пива


3-1083317601
}|{yk
2004-04-30 13:33
2004.05.23
Создание GUID в Firebird


1-1084003411
Virus.exe
2004-05-08 12:03
2004.05.23
Как добавить свой пункт в меню?