1 Delphi 開啟目錄和txt檔案模組

//1、開啟目錄和開啟txt檔案

procedure tmainform.bbtnopenloclick(sender: tobject);
var slogname: string;
begin
slogname := pub_exepath + '\日誌\' + formatdatetime('yyyy-mm-dd',date())+'.txt';
if not fileexists(slogname) then
begin
messagebox(0, '今日無錯誤日誌！', '提示', mb_ok + mb_iconinformation);
exit;
end;
tryopenlog(slogname);
except on e : exception do
begin
loginfo('開啟日誌檔案出錯，原因：' + e.message, true);
messagebox(0, '開啟日誌檔案出錯，請重試！', '錯誤', mb_ok + mb_iconerror);
end;
end;
end;
procedure tmainform.bbtnopenlogfolderclick(sender: tobject);
var sdirname: string;
begin
sdirname := pub_exepath + '\日誌';
if not directoryexists(sdirname) then createdir(sdirname);
tryopenlogdirectory(sdirname);
except on e : exception do
begin
loginfo('開啟日誌目錄出錯，原因：' + e.message, true);
messagebox(0, '開啟日誌目錄出錯，請重試！', '錯誤', mb_ok + mb_iconerror);
end;
end;
end;
-------
procedure tmainform.openlogdirectory(dirname: string);
begin
shellexecute(handle,'open',pchar(dirname), nil, nil, 1);
end;
procedure tmainform.openlog(filename: string);
begin
shellexecute(handle, 'open', pchar('notepad'), pchar(filename), nil, sw_show);
end;

1 Delphi 開啟目錄和txt檔案模組

1 開啟目錄和開啟txt檔案 procedure tmainform.bbtnopenloclick sender tobject var slogname string begin slogname pub exepath 日誌 formatdatetime yyyy mm dd date txt...

Nginx 和 Apache 開啟目錄瀏覽功能

1.nginx 在相應專案的 server 段中的 location 段中，新增 autoindex on。例如 server location php access log home wwwlogs practise access.log access 2.apache 在 http.conf 中...

1 Linux 檔案和目錄管理

檔案或者目錄起始於根目錄 成為樹狀結構 最頂層由 開始 根目錄是整個系統中最重要的乙個目錄，因為不但所有的目錄都是由根目錄衍生出來的，同時根目錄也與開機 還原 系統修復等操作有關。fhs標準建議 根目錄 所在的分割槽應該越小越好，且應用程式所安裝的軟體最好不要與根目錄放在同乙個分區內，保持根目錄越小...