Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c