03 2013 档案

西门子S7-200 PPI协议程序代码
该文被密码保护。
posted @ 2013-03-23 19:00 aBung
DELPHI 判断文件夹是否存在，并创建
摘要：procedure TForm1.Button1Click(Sender: TObject);varPach:string;beginPach:='E:\123\223'; //定义目录地址if not DirectoryExists(pach) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录，创建单级目录用：CreateDirectory) ForceDirectories(Pach); endelse begin showmessage('目录已经存在'); end;end; 阅读全文
posted @ 2013-03-21 21:02 aBung 阅读(1770) 评论(0) 推荐(0)