刪除目錄,必須要保證該目錄為空,即不能存在任何檔案和子目錄,才能刪除該目錄,否則刪除不掉該目錄。以下**就是用來清空目錄的,刪除乙個目錄裡的所有檔案包括子目錄。使用了遞迴呼叫。
procedure cleardir(path: string);
varfsearchrec: tsearchrec;
findresult: shortint;
begin
findresult := findfirst(path + '*.*', faanyfile, fsearchrec);
trywhile findresult = 0 do
begin
if ((fsearchrec.attr and fadirectory) = fadirectory)
and (fsearchrec.name <> '.') and (fsearchrec.name <> '..') then
begin
cleardir(path + fsearchrec.name + '/');
removedir(path + fsearchrec.name);
endelse if (fsearchrec.attr and fadirectory) <> fadirectory then
deletefile(path + fsearchrec.name);
findresult := findnext(fsearchrec);
end;
finally
findclose(fsearchrec);
end;
end;
findfirst:命令對指定的檔名及屬性搜尋目錄。
findnext:命令返回與檔名及屬性匹配的下一入口。
removedir:刪除目錄,要保證該目錄為空。
deletefile:刪除檔案。
關於這些函式詳細解釋請參考delphi幫助。
C盤滿了,清空目錄
清除電腦垃圾 執行 temp 1 temp 電腦臨時檔案的歸放處,這些臨時檔案一般存在時效性,過了時間段基本不會用,並且將該檔案刪除並不會對電腦造成影響。操作 此電腦 c盤 windows temp 注意事項 不要刪除資料夾本身。2 prefetch 系統執行產生的快取垃圾,一般將裡面的內容進行清理...
dos命令應用 啟動程式 清空目錄
start可以用來在桌面設定一鍵快捷啟動多個程式的功能 start命令預設不等待程式執行即執行下一條命令,即命令不會阻塞。另存以下文本文bat檔案,放在桌面,按 1 鍵定位到檔案,enter 鍵執行。rem 啟動qq start min d program files x86 tencent qq ...
如何實現鍵盤的模擬輸入(附原創原始碼)
void ckeyboarddlg onp 上面這兩行 就實現了模擬按下字母p,根據這樣的原理 我們可以模擬按下了一些組合的快捷鍵 好實現一些不容易實現的功能。我們知道 按下鍵盤上windows的標誌鍵和字母r 就可以開啟執行對話方塊。我們可以在程式中模擬按下這兩個按鍵,在上面的程式中加入乙個按鈕。...