不用FileExists,就用Windows API能否判断c:\a.txt是否存在?
解决方案 »
- delphi调试的时候,知道一个内存地址,在哪里看内存啊??
- 万般奇怪的问题!我的环境在菜单在极少数电脑上总是导致系统崩溃(蓝屏)DELPHI?DELPHI啊?
- 请问写五子棋如何让电脑先行
- 在Rave中我要用语句给TRaveDataText中的DataField赋值,但一直赋不进去,怎么办?
- http://expert.csdn.net/Expert/topic/1386/1386215.xml?temp=.449856
- 用InstallShield5做安装程序,如何将数据源自动添加到ODBC中。
- 数据库在安装程序中的问题
- 怎样强行结束线程?注意是强行
- 高手们快进来看看,100分呀
- 分数不多,却需要经验丰富的大虾回答:如何操作OleContainer里面的Excel对象!
- delphi 更改可执行文件图标
- 请问如何使用delphi创建IIS里的虚拟目录下的应用程序
var hf:hFile;
begin
hf:=CreateFile(PChar(FileName),GENERIC_READ,FILE_SHARE_READor FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
Result:=not(hf=INVALID_HANDLE_VALUE);
if Result then Result:=GetLastError=0 else CloseHandle(hf);
end;
function FileExistsAPI(const FileName:string):boolean;
var hf:hFile;
begin
hf:=CreateFile(PChar(FileName),GENERIC_READ,FILE_SHARE_READor FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
Result:=not(hf=INVALID_HANDLE_VALUE);
if Result then CloseHandle(hf);
end;
LPCTSTR lpFileName // pointer to the name of a file or directory
);
不存在返回0xFFFFFFFF