谢谢!
解决方案 »
- 如何实现将ShellListView显示的文件拖到其他地方去
- 求D6各种网络通信的代码
- 帮我看看这个SQL语句是不是不太好,每次查询都是提示超时
- 按钮
- DBGridEh的应用,如何动态控制某几个字段(布尔型)在DBGridEh网格中是否显示选定框。
- 如何让我的程序启动完毕后!输入法处于"微软拼音状态"????
- 连接数据库
- 请问得怎么关于TImage的两个难题:
- 一个三层系统的问题,十万火急,关系到饭碗,请各位大虾赐教!
- 复兴科技高薪诚聘DELPHI开发工程师(深圳南山科技园)
- oracle数据库 这样可以吗? 具体怎样写? 指教
- 不安装 ORACLE8i 的客户端,需要哪此 dll文件!!可直连ORACLE数据库 急急!!!!
ShowMessage('创建成功!');
{$IFDEF WIN32}
var
Code: Integer;
begin
Code := GetFileAttributes(PChar(Name));
Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;
{$ELSE}
var
SR: TSearchRec;
begin
if Name[Length(Name)] = '\' then Dec(Name[0]);
if (Length(Name) = 2) and (Name[2] = ':') then
Name := Name + '\*.*';
Result := FindFirst(Name, faDirectory, SR) = 0;
Result := Result and (SR.Attr and faDirectory <> 0);
end;
{$ENDIF}