請問如何將檔案丟到資源回收筒(98,2000,nt) |
答題得分者是:lcsboy
|
tony115722
一般會員 發表:53 回覆:63 積分:23 註冊:2002-07-09 發送簡訊給我 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
請問一下你有自行 搜尋網站資料嗎? 請勞駕貴手先找相關資料如有問題再詢問也不遲 不要造成資源浪費 我幫你找到 領航天使 站長 的Windows作業系統技術文件檔案區 參考看看 如何用程式將檔案丟入資源回收筒
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=307 此範例2000無法執行,不過使用虛擬鑑執行 我想管它是何系統 應該都無妨
不過須注意 時間與流程的配置 發表人 - jackkcg 於 2002/11/12 18:29:14
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
tony115722
一般會員 發表:53 回覆:63 積分:23 註冊:2002-07-09 發送簡訊給我 |
|
lcsboy
版主 發表:87 回覆:622 積分:394 註冊:2002-06-18 發送簡訊給我 |
我的WinXP就實作過! 沒什麼問題!
記得: C的字串結尾是用'\0', 但是在用SHFileOperationh時
.pForm或.to的參數時, 要記得再補一個'\0'
(請參閱MSDN or SDK) Ex:要砍C:根目錄下的readme.txt
char *From="C:\\readme.txt\0"; SHFILEOPSTRUCT op;
ZeroMemory(&op, sizeof(op));
op.hwnd=MainForm->Handle;
op.wFunc=FO_DELETE;
op.pFrom=From;
op.fFlags=FOF_ALLOWUNDO;
SHFileOperation(&op);
|
chilung
一般會員 發表:4 回覆:13 積分:3 註冊:2003-03-06 發送簡訊給我 |
|
saydo
一般會員 發表:0 回覆:9 積分:1 註冊:2004-01-05 發送簡訊給我 |
因為站長說同樣的本程式在Windows 2000與NT系列下無法執行,
所以我想問...2000之下的程式要如何做.. ===>請參考 http://home.t-online.de/home/Thomas.Schwobe/shellm.htm
function TForm1.SendToRecycleBin(FileName:string):Boolean;
var SHF : TSHFileOpStruct;
begin
with SHF do
begin
Wnd := application.Handle;
wFunc := FO_DELETE;
pFrom := PChar(FileName);
pTo := nil; //Win2000請加入此行,執行才有效。
fFlags := FOF_ALLOWUNDO;
end;
result :=((SHFileOperation(SHF)=0) and not SHF.fAnyOperationsAborted);
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |