請問如何將檔案丟到資源回收筒(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;
|
發表時間：2002-11-12 18:04:11
IP:210.201.xxx.xxx 未訂閱
系統時間：2024-05-03 20:01:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |