教你在DELPHI中基础开发技巧(12)_Deiphi实例教程_Deiphi_编程开发

教你在DELPHI中基础开发技巧(12)

日期：2008-10-20 22:07:54　　　　来源：

教你在DELPHI中基础开发技巧。byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明
procedure Tform1.formCreate(Sender: TObject);
var l:longint;
begin
l:=getWindowLong(Handle, GWL_EXstyle);
l := l Or $80000;
SetWindowLong (handle, GWL_EXstyle, l);
SetLayeredWindowAttributes(handle, 0, 180, 2);
end;

　　◇[DELPHI]程序显示广告WebBrowser加载图片
var Flag, frame, pData, Header: OLEVariant;
begin
WebBrowser1.Navigate('http://www.chineseall.com/images/logo.jpg', flag, frame,pData, Header)
end;

　　◇[DELPHI]计算一个目录的大小
function GetDirectorySize(const ADirectory: string): Integer;
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirectory);
Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);
if Ret <> NO_ERROR then
exit;
try
while ret=NO_ERROR do
begin
inc(Result, Dir.Size);
//如果是目录，且不是'.'或'..'则进行递归调用
if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then
Inc(Result, GetDirectorySize(Path + Dir.Name + '\*.*'));
Ret := Sysutils.FindNext(Dir);
end;
finally
Sysutils.FindClose(Dir);
end;
end;

　　◇[DELPHI]清空一个目录
function EmptyDirectory(TheDirectory :String Recursive : Boolean) :
Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := NormalDir(TheDirectory);
Res := FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive
then begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec.FindHandle);
end;
end;

　　◇[DELPHI]发布ADO程序之安装ADO
运行一次 MDac_typ.exe ，这个文件在微软的 Windows、IE、Office、Visual Studio 中都有。
安装程序所安装后的目录与程序中设置的目录路径一样，C:\Program Files\Common Files\System\ado文件夹中有没有ADO组件，装ACCESS2000就有ADO2.1，没有则安装MS OFfice2000，编译要去掉project->Option->Packages对话框中的Build With RunTime Library的勾。

　　◇[DELPHI]拦截Windows系统消息：WM_CLOSE消息
procedure WMClose(var Msg: TMessage);message WM_CLOSE;
procedure TMainform.WMClose(var Msg: TMessage);
begin
m_bCloseNoQuery := false;
inherited;
end; 　[1]

Tags:　

◎→	本类最新
在DELPHI中用线程排序在Delphi中使用Queued Component 作非常规程序菜单掌握delphi 执行一个外部程序并等待它的完成在应用程序中跟踪MOUSE的坐标五子棋源代码显示密码的原理

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
用拼音首字符来实现检索功能将JPEG文件转为Windows墙纸对DELPHI图形编辑技巧二则 Delphi编程实现3D图形修饰技术(2 Delphi编程实现3D图形修饰技术 Delphi实现通用的定时自动关机程 Delphi实现通用的定时自动关机程