Delphi 建立目錄及寫日誌檔案

var

tf: textfile;
logfile: string;
txt :string;
sysdir:string;
//建立按鈕
procedure tform1.button1click(sender: tobject);
begin
if not directoryexists(sysdir+'log/') then
createdir(sysdir+'log/');
logfile:=sysdir+'log/'+formatdatetime('yyyymmdd',now)+'.txt'; 
end;
//寫日誌按鈕
procedure tform1.button2click(sender: tobject);
begin
//assignfile(logfile,'log.txt');
assignfile(tf,logfile);
if fileexists(logfile) then
else
rewrite(tf);
writeln(tf,'123');
closefile(tf);
end;

建立目錄及多級目錄

createdirectory 一次只能建立一級目錄，而且前級目錄需要判斷是否存在。用makesuredirectorypathexists 可以一次建立多級目錄，使用時注意 1 include link中加入imagehlp.lib 2 路徑名最後結尾要用 如要建立c aaa bbb ccc dd...

Delphi 目錄及子目錄所有檔案刪除

需要引用單元 shellapi function deldirectory const source string boolean var fo tshfileopstruct begin fillchar fo,sizeof fo 0 with fo do begin wnd 0 wfunc fo...

ionic建立專案及目錄結構

cnpm i g ionic cordova cd到某個檔案目錄下，ionic start ionicdemo tabs，建立過程中可以按ctrl c，再通過cnpm i，安裝所需要的依賴。ionic serve 建立新的元件 ionic g page componnetnameionic4.x是由...