『壹』 delphi首先判断是否有某文件然后用ShellExecute删除怎么写
if FileExists('f:\AAA\BBB\CC.txt') then
begin
DeleteFile('f:\AAA\BBB\CC.txt');
end
else
begin
showmessage('文件不存在');
end;
补:
uses shellapi
procere URLink(URL: PChar);
begin
ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);
end;
procere TForm1.BitBtn1Click(Sender: TObject); //打开
begin
URLink('f:\AAA\BBB\dd.exe');
//URLink(PChar(Application.ExeName));
end;
自己看着做吧
『贰』 delphi 判断文件不否存在！
OpenDialog的路径：OpenDialog.filename
文件是否存在：fileexist(OpenDialog.filename)
『叁』 delphi判断文件夹是否存在
var
AFilePath : string;
begin
AFilePath := ExtractFilePath(ParamStr(0)); //取当前程序运行目录
AFilePath := AFilePath + 'c'; //加上C文件夹
if DirectoryExists(AFilePath) then
ShowMessage('目录存在')
else ShowMessage('目录不存在');
end;
『肆』 delphi怎么判断一个文本文件正在被使用
使用CreateFile函数来判断文件是否打开，编写以下函数就可以判断文件是否已打开了，代码如下：x0dx0ax0dx0afunction IsFileInUse(AName: string): boolean;x0dx0avarx0dx0a hFileRes: HFILE;x0dx0abeginx0dx0a Result := False;x0dx0a if not FileExists(AName) then exit;x0dx0a hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);x0dx0a Result := hFileRes = INVALID_HANDLE_VALUE;x0dx0a if not Result thenx0dx0a CloseHandle(hFileRes);x0dx0aend;x0dx0a使用方式：x0dx0a if IsFileInUse('d:\test.txt') thenx0dx0a ShowMessage('文件在使用.');x0dx0a elsex0dx0a ShowMessage('文件没有使用.');x0dx0ax0dx0aCreateFile函数说明：x0dx0ax0dx0aHANDLE CreateFile(x0dx0ax0dx0aLPCTSTR lpFileName, //指向文件名的指针x0dx0ax0dx0aDWORD dwDesiredAccess, //访问模式（写/读）x0dx0ax0dx0aDWORD dwShareMode, //共享模式x0dx0ax0dx0aLPSECURITY_ATTRIBUTES lpSecurityAttributes, //指向安全属性的指针x0dx0ax0dx0aDWORD dwCreationDisposition, //如何创建x0dx0ax0dx0aDWORD dwFlagsAndAttributes, //文件属性x0dx0ax0dx0aHANDLE hTemplateFile //用于复制文件句柄x0dx0ax0dx0a);x0dx0ax0dx0a参数列表x0dx0ax0dx0alpFileName String 要打开的文件的名字x0dx0ax0dx0adwDesiredAccess Long 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为x0dx0aGENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息x0dx0ax0dx0adwShareMode Long， 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITEx0dx0a表示允许对文件进行共享访问 SECURITY_ATTRIBUTES，x0dx0a指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话） Long，下述常数之一：x0dx0ax0dx0aCREATE_NEW 创建文件；如文件存在则会出错x0dx0ax0dx0aCREATE_ALWAYS 创建文件，会改写前一个文件x0dx0ax0dx0aOPEN_EXISTING 文件必须已经存在。由设备提出要求x0dx0ax0dx0aOPEN_ALWAYS 如文件不存在则创建它x0dx0ax0dx0aTRUNCATE_EXISTING 讲现有文件缩短为零长度 Long， 一个或多个下述常数x0dx0ax0dx0aFILE_ATTRIBUTE_ARCHIVE 标记归档属性x0dx0ax0dx0aFILE_ATTRIBUTE_COMPRESSED 将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式x0dx0ax0dx0aFILE_ATTRIBUTE_NORMAL 默认属性x0dx0ax0dx0aFILE_ATTRIBUTE_HIDDEN 隐藏文件或目录x0dx0ax0dx0aFILE_ATTRIBUTE_READONLY 文件为只读x0dx0ax0dx0aFILE_ATTRIBUTE_SYSTEM 文件为系统文件x0dx0ax0dx0aFILE_FLAG_WRITE_THROUGH 操作系统不得推迟对文件的写操作x0dx0ax0dx0aFILE_FLAG_OVERLAPPED 允许对文件进行重叠操作x0dx0ax0dx0aFILE_FLAG_NO_BUFFERING 禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块x0dx0ax0dx0aFILE_FLAG_RANDOM_ACCESS 针对随机访问对文件缓冲进行优化x0dx0ax0dx0aFILE_FLAG_SEQUENTIAL_SCAN 针对连续访问对文件缓冲进行优化x0dx0ax0dx0aFILE_FLAG_DELETE_ON_CLOSE 关闭了上一次打开的句柄后，将文件删除。特别适合临时文件x0dx0ax0dx0a也可在Windows NT下组合使用下述常数标记：x0dx0ax0dx0aSECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，x0dx0aSECURITY_IMPERSONATION， SECURITY_DELEGATION，x0dx0aSECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLYx0dx0ax0dx0ahTemplateFile Long， 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性x0dx0ax0dx0a返回值x0dx0ax0dx0a如执行成功，则返回文件句柄。x0dx0ax0dx0aINVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYSx0dx0a或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS
『伍』 delphi判断文件是否存在问题
你看看你写的这句“if FileExists(pchar(extractFilePath(application.exeName)+'newFile\123.txt')); ”，后面还带了一个分号“；” ，你先把问题弄好再往下看吧~，首先如果在想在某个文件夹中创建文本话，你首先得保证这个文件夹的存在，要不怎么找到他的路径？然后你写的“memo1.Lines.SaveToFile(extractFilePath(application.exeName)+'newFile\123.txt'); ”，里面根本用不到pchar你为什么画蛇添足？？你知道pchar和string有什么不同吗？不懂不要乱用好不？然后下面的代码
procere TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.SaveToFile(extractFilePath(application.exeName)+'newFile\123.txt');
if FileExists(extractFilePath(application.exeName)+'newFile\123.txt')
then
label2.Caption :='创建成功'
else
label2.Caption :='创建失败';
end;
上面的代码可以在一个已经存在的newfile文件夹下创建123.txt并写入内容（无论newfile文件夹下有几个txt，只要windows允许就行）！
『陆』 delphi检测远程文件是否存在
使用TIdHTTP控件
try
IdHTTP.Head(URL);
except
showmessage('未连接到Internet或者文件不存在！');
end;
『柒』 Delphi判断文件夹是否存在，不存在就创建一个
delphi 判断文件夹目录可以使用 DirectoryExists 函数，而创建目录可以使用 CreateDir 和ForceDirectories 函数。
CreateDir 和ForceDirectories 函数都可以创建文件夹，两者的区别在于：
ForceDirectories 创建多级目录，父目录不必存在；而 CreateDir 只能创建最后的一级目录，父目录必须存在。举例说明：
如果需要建立 d:path1subPath1，那么CreateDir 函数只能先建立d:path1（或必须该路径存在），再建立d:path1subPath1。而用ForceDirectories 函数可以一次性建立。
示例代码如下：
procereTForm1.Button1Click(Sender:TObject);
begin
ifnotDirectoryExists(Edit1.Text)then//判断目录是否存在
try
begin
ForceDirectories(Edit1.Text);//创建目录
end;
finally
raiseException.Create('无法建立路径：'+Edit1.Text);
end;
end;
『捌』 delphi断定文件是否存在问题
1不知道你用什么敕令来生成文件的如不蚜鲈己写代率攀来生成，可以最后用个Application.ProcessMessage来先响应下消息。如不雅是调用外部法度榜样或敕令的话，可以用WaitSingleObject来等待该过程停止，然后再断定。 查看更多答案>>
『玖』 delphi 判断文件夹是否有文件
ifFileExists('路径')thenMessageBox(0,'存在','提示',MB_OK);//判断文件是否存在
ifDirectoryExists('路径')thenMessageBox(0,'存在','提示',MB_OK);//判断文件夹（路径）是否存在
『拾』 delphi怎么判断一个文本文件正在被使用
使用CreateFile函数来判断文件是否打开，编写以下函数就可以判断文件是否已打开了，代码如下：
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := hFileRes = INVALID_HANDLE_VALUE;
if not Result then
CloseHandle(hFileRes);
end;
使用方式：
if IsFileInUse('d:\test.txt') then
ShowMessage('文件在使用.');
else
ShowMessage('文件没有使用.');
CreateFile函数说明：
HANDLE CreateFile(
LPCTSTR lpFileName, //指向文件名的指针
DWORD dwDesiredAccess, //访问模式（写/读）
DWORD dwShareMode, //共享模式
LPSECURITY_ATTRIBUTES lpSecurityAttributes, //指向安全属性的指针
DWORD dwCreationDisposition, //如何创建
DWORD dwFlagsAndAttributes, //文件属性
HANDLE hTemplateFile //用于复制文件句柄
);
参数列表
lpFileName String 要打开的文件的名字
dwDesiredAccess Long 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为
GENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息
dwShareMode Long， 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE
表示允许对文件进行共享访问
lpSecurityAttributes SECURITY_ATTRIBUTES，
指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）
dwCreationDisposition Long，下述常数之一：
CREATE_NEW 创建文件；如文件存在则会出错
CREATE_ALWAYS 创建文件，会改写前一个文件
OPEN_EXISTING 文件必须已经存在。由设备提出要求
OPEN_ALWAYS 如文件不存在则创建它
TRUNCATE_EXISTING 讲现有文件缩短为零长度
dwFlagsAndAttributes Long， 一个或多个下述常数
FILE_ATTRIBUTE_ARCHIVE 标记归档属性
FILE_ATTRIBUTE_COMPRESSED 将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式
FILE_ATTRIBUTE_NORMAL 默认属性
FILE_ATTRIBUTE_HIDDEN 隐藏文件或目录
FILE_ATTRIBUTE_READONLY 文件为只读
FILE_ATTRIBUTE_SYSTEM 文件为系统文件
FILE_FLAG_WRITE_THROUGH 操作系统不得推迟对文件的写操作
FILE_FLAG_OVERLAPPED 允许对文件进行重叠操作
FILE_FLAG_NO_BUFFERING 禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块
FILE_FLAG_RANDOM_ACCESS 针对随机访问对文件缓冲进行优化
FILE_FLAG_SEQUENTIAL_SCAN 针对连续访问对文件缓冲进行优化
FILE_FLAG_DELETE_ON_CLOSE 关闭了上一次打开的句柄后，将文件删除。特别适合临时文件
也可在Windows NT下组合使用下述常数标记：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，
SECURITY_IMPERSONATION， SECURITY_DELEGATION，
SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY
hTemplateFile Long， 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性
返回值
如执行成功，则返回文件句柄。
INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS
或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS