全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1177
推到 Plurk!
推到 Facebook!

How to lock a file "cc.mmm"

答題得分者是:xxxxzxx
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-09 14:54:42 IP:211.98.xxx.xxx 未訂閱
How to lock a file "cc.mmm", make it couldn't to be copied and moved and deleted by any other software or people!    (use delphi source code to do it)    Thanks!
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-09 19:59:58 IP:211.22.xxx.xxx 未訂閱
All MS OS files are readable, so it seems couldn't be totally as what you wish for. And how about using a weird filename something like OS SYSTEM FILENAME and make it invisible, put it in the system directory or some place you like, so other people can't find it.the above is just for reference! -----------------------------------------------
xxxxzxx
一般會員


發表:21
回覆:49
積分:24
註冊:2004-11-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-09 20:13:35 IP:220.163.xxx.xxx 未訂閱
您好hua2000 .    请查看function OpenFile(const lpFileName: LPCSTR; var lpReOpenBuff: TOFStruct;uStyle: UINT): HFILE; stdcall;   函数功能:以不同方式打开文件的操作(为兼容16位Windows程序保留的函数)。 参数说明:lpFileName: 要打开文件的名称  lpReOpenBuff: 变量指针,用于存储文件被首次打开时接收信息。  UStyle: 打开文件的常量类型。  常量名  意义     Of_Create  创建文件     Of_Delete  删除指定文件     Of_Exist  打开文件以验证其存在否?存在,返回一无效句柄;否则,返回负数     Of_Parse  填充lpReOpenBuff内容,但不进行任何操作     Of_Prompt  如存在不存在,则显示一有重试和取消按钮的消息框     Of_Read  只读方式打开     Of_ReadWrite  读写方式打开     Of_ReOpen  打开lpReOpenBuff内指定的文件,而不依据lpFileName     Of_Search  强迫Windows查找文件---即使指定了文件路径     Of_Share_Compat  文件可由多个程序多次打开     Of_Share_Deny_None  共享打开     Of_Share_Deny_Read  禁止其它程序读该文件     Of_Share_Deny_Write  禁止其它程序写该文件     Of_Share_Exclusive  独占方式打开文件,其它程序不得再打开该文件     Of_Write  只写方式打开 /////////////////////////////////////////      d7测试通过: procedure TForm1.Button1Click(Sender: TObject); var Struct: TOfStruct; Style: Cardinal; begin Style := OF_Share_Exclusive;// file couldn't to be copied and moved and deleted by any thing! openfile(pchar('cc.mmm'),Struct,Style); end; 不知是不是您要的. 發表人 -
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-10 14:00:10 IP:211.98.xxx.xxx 未訂閱
Thanks!    Do you have any other way ?
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-11 09:38:44 IP:211.98.xxx.xxx 未訂閱
Thanks
系統時間:2024-03-29 6:10:19
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!