如何让文件夹无法访问？？？ (100分)

SunBurst · 2003-08-01

如何让文件夹无法访问？？当我的程序启动时，锁定某个文件夹，让其他任何程序都无法访问它

sungods · 2003-08-01

你给他加锁~

liwens · 2003-08-01

可能要用到专门的加密软件或加锁工具；

tseug · 2003-08-01

呵呵, 给你个变通的思路, 程序启动时把文件夹改个特殊的名字, 让别人找不到

SunBurst · 2003-08-01

我要我自己写的程序运行时实现对某个文件夹锁定，要用别的工具，那我还问来干吗？

SunBurst · 2003-08-01

看来都没人知道啊！！！ 忧闷ing………………

takashiki · 2003-08-01

使用Windows API的FileOpen函数，他有一个参数是共享锁定的，不明白的话自己去查查MSDN,不过你如果要使用它的话，前提是你的程序必须已经运行！ 你的程序一运行，然后你就在Form1.FormCreate过程中打开这个文件夹，这是你再双击该文件夹时，哈哈，看到了吗？“该文件被另一个程序打开，无法访问！“

takashiki · 2003-08-02

function FileLock(Fn:string):Boolean; var i:integer;s:TOfStruct;style:Cardinal;HDL:HFile;Drive:string; begin style:=Of_Share_Exclusion; //独占方式 Drive:=UpperCase(Fn[1]); s.fFixedDisk:=Ord(Drive<>'A'); //硬盘？ s.cbytes:=sizeof(s); for i:=0 to length(fn) do s.szPathName[i-1]:=Fn; s.szPathName[i-1]:=chr(0); //填充文件名 hdl:=OpenFile(pchar(fn),s.style); if hdl=HFile_Error then begin Result:=true //文件锁定 else result:=false; end; 如果你仅仅为了不让别人看见里面的内容，你可以把名称改作 cyclone.{00022603-0000-0000-C000-000000000046}，这就将打开一个midi文件，改作 cyclone.{20D04FE0-3AEA-1069-A2D8-08002B30309D}将打开我的电脑

SunBurst · 2003-08-02

多人接受答案了。

yukaikai · 2003-11-14

function FileLock(Fn:string):Boolean; var i:integer;s:TOfStruct;style:Cardinal;HDL:HFile;Drive:string; begin  style:=OF_SHARE_EXCLUSIVE ;  //独占方式  Drive:=UpperCase(Fn[1]);  s.fFixedDisk:=Ord(Drive<>'A');  //硬盘？  s.cbytes:=sizeof(s);  for i:=0 to length(fn) do      s.szPathName[i-1]:=Fn;  s.szPathName[i-1]:=chr(0);  //填充文件名  hdl:=OpenFile(pchar(fn),s,style);  if hdl=HFile_Error then    Result:=true  //文件锁定  else result:=false; end;

如何让文件夹无法访问？？？ (100分)

SunBurst

Unregistered / Unconfirmed

sungods

Unregistered / Unconfirmed

liwens

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

SunBurst

Unregistered / Unconfirmed

SunBurst

Unregistered / Unconfirmed

takashiki

Unregistered / Unconfirmed

takashiki

Unregistered / Unconfirmed

SunBurst

Unregistered / Unconfirmed

yukaikai

Unregistered / Unconfirmed

Similar threads