Delphi-组件使用及其代码

Delphi 组件使用及其代码1.数组定义(1) 一维数组数组名：arrayn1 . . n2 of 数据类型；(2) 二维数组数组名：arrayn1 . . n2，m1 . . m2 of 数据类型； 或者数组名：arrayn1 . . n2 of arraym1 . . m2 of 数据类型；(3) 动态数组数组名：array of 数据类型；使用前要用SetLength（数组名，数组长度）；来动态申请空间。2.使用math数学函数： 需要在uses引用里面添加math; 其中power(a,b)函数是求a的b次幂。 RandomRange(a,b)函数是随机产生一个a、b之间的数。3.声明全局变量 需要在implementation之后声明； 初始化格式需要在最后一个end之后：语句：initialization赋值语句;4.常量在var后使用const关键字声明常量：如const PI = 3.14；5.枚举类型使用声明： type 枚举类型名=（枚举值1，枚举值2，）；定义： var 变量名：枚举类型名；6.指针类型（1） 运算符：放在变量的前面，获得变量的地址； 运算符：放在指针变量的后面，取得该指针变量中所存放地址变量的数据；（2）声明：type 指针类型名= 数据类型； var 指针变量名：指针类型名； 或者 var指针变量名：数据类型；7.日期时间函数function Now：TDateTime；/返回系统当前日期和时间function Date：TDateTime；/返回系统当前日期function Time：TDateTime；/返回系统当前时间function DateTimeToStr（DateTime：TDateTime）：string；/将日期时间数据转换为字符串function StrToDateTime（const s：string）：TDateTime； /将字符串转换为日期时间数据function DateToStr（DateTime：TDateTime）：string；/将日期数据转换为字符串function TimeToStr（DateTime：TDateTime）：string；/将时间数据转换为字符串function FormatDateTime（const Format：string；DateTime：TDateTime）：string；/按指定格式输出日期时间例如：formatDatetime（yyyy-mm-dd,now）;formatDatetime（hh:mm:ss,now）;8.自定义过程（1） 在type下声明： procedure （）；（2） 将光标移动定位在过程声明中，按Ctrl+Shift+C，实现自动生成部分过程框架。procedure （）；begin；end；（3） 自定义过程的调用： 过程名（）；9.自定义函数（1）函数不用声明；（2）function （）：；begin；end；（3）自定义函数的调用： 函数名（实参表）；10.对话框函数MessageDlg（1）：=MessageDlg（信息内容，类型，按钮组，HelpCex）；（2）类型：mtWarning 含有感叹号符号的警告对话框 mtError 含有红色差号符号的错误对话框 mtInformation 含有蓝色i符号的信息对话框 mtConfirmation 含有蓝色？符号的确认对话框 mtCustom 不含图标的一般对话框，对话框的标题是程序的名称 按钮组： mbYes Yes按钮，函数返回mrYes或6 mbNo No按钮，函数返回mrNo或7 mbOk Ok按钮，函数返回mrOk或1 mbCancel Cancel按钮，函数返回mrCancel或2 mbHelp Help按钮 mbAbort Abort按钮，函数返回mrAbort或3 mbRetry Retry按钮，函数返回mrRetry或4 mbIgnore Ignore按钮，函数返回mrIgnore或5 mbAll All按钮，函数返回mrAll或8 mbNoToAll NoToAll按钮，函数返回mrNoToAll或9 mbYesToAll YesToAll按钮，函数返回mrYesToAll或10 HelpCtx指定当用户单击“Help”按钮或键时，现实的帮助主题。例如：if MessageDlg(您确定要关闭窗口吗？,mtConfirmation,mbYes,mbNo,0)=mryes then11.基本知识点（1）if (key in 0,1.9,#13,#8) then /判断按下的是否为数字键、回车键和退格键 #0表示没有任何内容 #32表示空格 （2）Delphi中Randomize方法用来随机初始化数据。（3）Label的Transparent属性用来设置Label的显示方式是否透明显示。（4）StringGrid属性Cells【A,B】，其中A控制列，B控制行。（5）MessageBox显示消息： MessageBox(句柄，消息，消息框名，类型)例如：MessageBox（0，PChar（你好+edit1.text），欢迎你，MB_OK） MessageBox（0，PChar（你好+edit1.text），提示，MB_ICONASTERISK and MB_ICONINFORMATION）/提示框 MessageBox（0，PChar（密码不能为空！），警告，MB_ICONEXCLAMATION）/警告框12.制作闪现窗体在Project-option中将闪现窗体设置为Available forms,之后显示的主窗体设置为Auto-create forms，并在主窗体的form的create事件中加入以下代码： （1） 先声明一个闪现窗体的变量：如About：=TForm2; 主窗体代码：About:=TForm2.Create(Application);/生成闪现窗体 About.show; /显示闪现窗体 （2）闪现窗体加入一个Timer事件，并在Timer的Timer事件中加入下面代码： close; /关闭窗体Release; /释放变量 注意：可用Timer的Interval控制闪现窗体出现的事件，以毫秒为单位。13.SavaDialog组件（1） 过滤文件：Filter(2) 保存文件默认后缀名DefaultExt属性填写后缀名，注意不要加.;(3) 保存代码：if savedialog1.Execute then begin memo1.Lines.SaveToFile(form1.SaveDialog1.FileName); application.MessageBox(文件保存成功!,提示!,64); end;14.复制、移动文件（1）复制文件 CopyFile(d:db123.txt,f:db123.txt,False); WinExec(cmd /c copy d:db123.txt f:db123.txt,0); 使用以上函数目标目录必须存在！ CopyFile(源文件路径,目标文件路径,False（存在覆盖）True（存在不覆盖）);（2） 移动正在使用的文件 MoveFileEx（所要移动的文件路径（及文件名），目标文件的路径（和文件名），移动标记）； 移动标记取值：MOVEFILE_REPLACE_EXISTING=$00000001;/覆盖已经存在的文件，来源文件和目标不能在同一目录MOVEFILE_COPY_ALLOWED=$00000002;/如果目标文件被移动到不同的卷上，则函数通过拷贝后删除来源文件的方法来模拟移动文件MOVEFILE_DELAY_UNTIL_REBOOT=$00000004;/在系统重新启动后再执行移动操作，这个参数只能被拥有管理员权限或localsystem权限的程序使用，不能和MOVEFILE_COPY_ALLOWED一起使用。MOVEFILE_WRITE_THROUGH=$00000008;/这个标记允许函数在执行完文件移动后才返回，否则不等文件移动完毕后就直接返回。如果设置了MOVEFILE_DELAY_UNTIL_REBOOT标记，则MOVEFILE_WRITE_THROUGH标记将被忽略。MOVEFILE_CREATE_HARDLINK=$00000010;/系统保留，以供将来使用。MOVEFILE_FAIL_IF_NOT_TRACKABLE=$00000020;/如果来源文件为1个link文件，但是文件在移动后不能够被tracked，则函数执行失败。如果目标文件在一个fat格式的文件系统上，则上述情况可以发生。该参数不支持NT系统。15.在系统菜单中添加菜单项i:=GetSystemMenu(Handle,False); /获取窗体的句柄 AppendMenu(i,MF_SEPARATOR,0,nil);/添加分割线 AppendMenu(i,MF_STRING,100,我的菜单(&E);/添加菜单项16.创建和删除文件夹DirectoryExists(路径) ;/判断文件夹是否存在ForceDirectories(路径); /创建文件夹mkdir(路径);/创建一个指定的目录RmDir(路径); /删除文件夹17.建立临时文件function GetTempFileName(建立临时文件路径,临时文件的前缀（识别前3位），用于建立临时文件的号码，返回建立的临时文件名称)例如： GetTempFileName(PChar(dir),TEST,0,Temp);/生成临时文件名18.把文件删除到回收站（注意：需要引用shellAPI单元）首先：varSHFile：SHFILEOPSTRUCT; with SHFile do begin Wnd:=0; /拥有者窗口句柄 wFunc:=FO_DELETE;/文件操作功能，可选项FO_COPY、FO_DELETE、FO_MOVE、FO_RENAME pFrom:=PChar(DFile); /源文件 /pto 目标文件fFlags:=FOF_ALLOWUNDO; /文件控制标志/fAnyOperationsAborted 用户是否中断操作/hNameMapping 指向一个SHNAMEMAPPING结构的指针 lpszProgressTitle:=将文件删除到回收站; /进程标题 end; SHFileOperation(SHFile);/删除文件，需要引用shellAPI单元19. 引用动态链接库（DLL文件使用）（1）静态引用动态链接库在implementation后function 名称():Integer;stdcall;external XX.dll;（2） 动态引用动态链接库1） LoadLibrary函数用于载入指定的动态链接库，并将它映射到当期进程使用的地址空间。函数原型如下：HINSTANCE LoadLibrary（LPCTSTR lpLibFileName）；lpLibFileName：指定要载入的动态链接库的名称；2） FreeLibrary函数用于释放那些由应用程序明确装载的DLL文件。函数原型如下：BOOL FreeLibrary（HMODULE hLibModule）；hLibModule：要释放的一个库的句柄；注意：1个LoadLibrary函数对应1个FreeLibrary函数。3） GetProcAddress函数用于获取DLL导出函数的地址，使用返回的函数指针调用DLL函数。函数原型如下：FARPROC GetProcAddress（HMODULE hModule，LPCSTR lpProcName）；hModule：包含此函数的DLL模块的句柄；lpProcName：包含函数名以NULL结尾的字符串，或者是指定函数的序数值。例子：Tgetn=function:pchar;stdcall; /在var前声明procedure TForm1.Button1Click(Sender: TObject);var onehandle:THandle; fun:Tgetn;begin onehandle:=loadlibrary(getname.dll); try if onehandle 0 then fun:=GetProcAddress(onehandle,getnames); if not(fun=nil)then label1.Caption:=fun; finally freelibrary(onehandle); end;end;20.清空回收站首先定义常量：const HERB_NOCONFIRMATION=$00000001; SHERB_NOPROGRESSUI=$00000002; SHERB_NOSOUND=$00000004;然后引入静态链接库：（需要添加引用shellAPI单元）function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall;external SHell32.dll;最后：SHEmptyRecycleBinA(application.handle,SHERB_NOCONFIRMATION+SHERB_NOPROGRESSUI+SHERB_NOSOUND);21.FileListBox1.Items.Stringsi用于得到FileListBox中指定的文件名。22.更改目录（1）GetDir(D:Byte;var S:string);/获取当前路径D：目标磁盘。取值如下：0：default；1：A；2：B；3：C；S：存储路径的字符串；（2） ChDir(const S:string);/改变当前路径S:改变后的路径（3） ExtractFilePath(OpenDialog1.FileName)；获取打开文件路径 ExtractFileName(OpenDialog1.FileName)；获取打开的文件名23.对ini文件进行操作（需要引用IniFiles单元） 新建ini文件PersionInfoName=赵志勇varini:TIniFile;；ini:=TIniFile.Create(文件路径+文件名.ini);/打开ini文件edit1.Text:=ini.ReadString(PersionInfo,Name,赵志勇);/读取文件ini.WriteString(PersionInfo,Name,Edit1.Text);/修改文件读取或修改ini文件后都需要释放资源：FreeAndNil(ini);24. 获取窗口文本int GetWindowText(HWND hwnd,LPTSTR lpString,int nMaxCount);hwnd:欲获取文字的窗口句柄lpString:预定义的一个缓冲区，至少有nMaxCount个字符大小。nMaxCount：lpString缓冲区的长度。例如：GetWindowText(H_Window,text,255)25. StrPas(字符串)函数StrPas(字符串)；/将零终止字符串转换为Pascal类型字符串。26. 在程序中调用.hlp文件WinHelp(handle,path,命令参数，附加数据（与命令参数有关）)；例如： WinHelp(Self.Handle,PChar(dir+help.hlp),HELP_CONTENTS,0)；27. 获取硬盘序列号Bool GetVolumeInformation(LPCSTR lpRootPathName,LPTSTR lpVolumeNameBuffer, DWORD nVolumeNameSize,LPDWORD lpVolumeSerialNumber, LPDWORD lpMaximumComponentLength,LPDWORD lpFileSystemFlags, LPTSTR lpFileSystemNameBuffer,DWORD nFileSystemNameSize)lpRootPathName：欲获取信息卷的根路径；lpVolumeNameBuffer：用于装载卷名的一个字符串；（nil）nVolumeNameSize：lpVolumeNameBuffer字符串的长度；（sizeof（）lpVolumeSerialNumber：用于装载磁盘卷序列号的变量；lpMaximumComponentLength：指定一个变量，用于装载文件名每一部分的长度；lpFileSystemFlags：用于装载一个或多个二进制位标志的长度；lpFileSystemNameBuffer：指定一个缓冲区，用于装载系统的名称；（nil）nFileSystemNameSize：lpFileSystemNameBuffer字符串的长度。（0）例如：function Get_HD_Serial(const Driverdir:Char):string;var nu:DWORD; vf:DWORD; volumeinfo:array0.MAX_PATHof Char; V_n:DWORD;begin GetVolumeInformation(PChar(Driverdir+:),nil,SizeOf(volumeinfo),V_n,nu,vf,nil,0); Result:=Format(V_S:%8.0X,V_n);end;28. 判断驱动器的类型function GetDriveType(lpRootPathName:PChar):UNIT;stdcall;lpRootPathName：驱动器盘符。该函数返回一个整型标记符：DRIVE_UNKNOWN（0）:驱动器盘符无效；DRIVE_NO_ROOT_DIR（1）:这不是一个有效的驱动器；DRIVE_REMOVABLE（2）:可移动驱动器；DRIVE_FIXED（3）:不可移动（本地）驱动器； DRIVE_REMOTE（4）:；网络（远程）驱动器； DRIVE_CDROM（5）:；光盘驱动器；DRIVE_RAMDISK（6）:RAM虚拟驱动器；29. 取消磁盘共享使用DOS命令“NET SHARE 盘符$ /DEL”来实现；function WinExec(lpCmdLine:LPCSTR;uCmdShow:UNIT)：UNIT;stdcall;lpCmdLine：表示命令行；uCmdShow：表示是否显示窗口，如果为SW_Show将显示窗口，为SW_Hide隐藏窗口。例如：取消C盘共享：inExec(cmd.exe /k NET SHARE C$ /DEL,SW_SHOW);30. 检测驱动器容量BOOL GetDiskFreeSpace(LPCTSTR lpRootPathName,LPDWORD lpSectorsPerCluster, LPDWORD lpBytesPerSector,LPDWORD lpNumberOfFreeCluster, LPDWORD lpTotalNumberOfClusters);lpRootPathName：不包括卷名的一个磁盘根路径；（C:）lpSectorsPerCluster：用于装载一个簇内扇区数的变量；（A）lpBytesPerSector：用于装载一个扇区内字节数的变量；（B）lpNumberOfFreeCluster：用于装载磁盘上剩余簇数的变量；（C）lpTotalNumberOfClusters：用于装载磁盘上总簇数的变量。（D）磁盘大小=A*B*D；磁盘剩余空间=A*B*C。（单位：B）例如：GetDiskFreeSpace(C:,sec1,byt1,cl1,cl2);31. 格式化磁盘需要先静态引用动态链接库：function formatdrive(hwnd:HWND;drive:Word;formatid:Word;options:Word):LongInt stdcall; external shell32.dll name SHFormatDrive;然后才可以使用。function FormatDrive(hwnd:HWND;drive,formatid,options:word):longint stdcall;hwnd：调用该函数的窗口句柄；drive：格式化的目标磁盘，从0开始；formatid：格式化ID；options：格式化选项。32. 显示、隐藏鼠标int ShowCursor(BOOL bShow);bShow：该参数为True显示鼠标指针，False隐藏鼠标指针。例如：ShowCursor(False);/隐藏鼠标ShowCursor(True);/显示鼠标33. 锁定计算机LockWorkStation;/锁定计算机34. 检测系统启动模式int GetSystemMetrics(int nIndex);/用于得到被定义的系统数据或者系统配置信息nIndex取值：SM_CLEANBOOT：返回系统启动方式返回值 0：正常启动 1：安全模式启动 2：网络安全模式启动SM_CMOUSEBUTTONS：返回值为系统支持的鼠标键数，返回0则表示系统没有安装鼠标。35. 设置桌面颜色BOOL WINAPI SetSysColors(int cElements,CONST INT *lpaElements,CONST COLORREF *lpaRgbValues);cElements：欲改变对象的数量；lpaElements：按引用传递。这是1个整数数组的第1个元素，每个条目都包含1个常数，指定一个Windows显示对象，可参考GetSysColor函数。lpaRgbValues：按引用传递。这是RGB值数组的第一个元素。该数组用于设置lpSysColor数组中的对象颜色。例如：var c_one,c_two:TColorRef;begin c_one:=COLOR_DESKTOP; c_two:=RGB(数值,数值,数值) ; SetSysColors(1,c_one,c_two);end;36. 鼠标交换左右键（需要引用Registry单元）例如：var mouse_key:TRegistry; leftbutton,rightbutton:string; valuetoread:string;begin leftbutton:=0; rightbutton:=1; valuetoread:=SwapMouseButtons; mouse_key:=TRegistry.Create; begin mouse_key.RootKey:=HKEY_CURRENT_USER; try if mouse_key.OpenKey(Control Panelmouse,True) then begin if mouse_key.ValueExists(valuetoread)then if mouse_key.ReadString(valuetoread)=leftbutton then begin SwapMouseButton(True); mouse_key.WriteString(valuetoread,rightbutton); end else begin SwapMouseButton(False); mouse_key.WriteString(valuetoread,leftbutton); end; mouse_key.CloseKey; end; finally mouse_key.Free; end; end;end;37. 监控内存使用状态var memo_status:TMemoryStatus;begin /memo_status.dwLength:=SizeOf(memo_status); GlobalMemoryStatus(memo_status);/此函数用来获取当前可用的物理和虚拟内存信息，返回信息保存在memo_status中。 memo_status.dwAvailPhys；/内存信息中的可用空间信息 memo_status.dwTotalPhys；/内存信息中的总内存信息38. 监视剪贴板信息（需要引用Clipbrd单元）function TCilpboard,HasFormat(format:Word):Boolean;/检测剪贴板中是否具有指定格式的数据。format:查看剪贴板中是否具有该参数指定的类型。返回值：如果剪贴板中具有所指定格式的数据则返回True。可以通过Clipboard.AsText属性能够得到当前剪贴板中的文本。例子：声明：procedure WMdrawclipboard(var aa:TMessage);message wm_drawclipboard;public下声明:next:HWND;procedure TForm1.WMdrawclipboard(var aa: TMessage);begin SendMessage(next,aa.Msg,aa.WParam,aa.LParam); if(clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT) then begin Memo1.Clear; Memo1.Lines.Add(clipboard.AsText); end;end;procedure TForm1.FormCreate(Sender: TObject);begin next:=SetClipboardViewer(Handle); /使本窗口可以浏览剪贴板end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin ChangeClipboardChain(Handle,next); SendMessage(next,WM_CHANGECBCHAIN,Handle,next);end;39. 利用钩子技术实现监控键盘（1）装载钩子function SetWindowsHookEx(idHook:Integer;lpfn:TFNHookProc;hmod:HINST;dwThreadId:DWORD):HHOOK;stdcall;idHook：钩子的类型，键盘钩子使用WH_KEYBOARD；lpfn：装载的钩子处理函数；hmod：程序的实例句柄；dwThreadId：线程ID安装成功后返回钩子过程的句柄。（2） 卸载钩子function UnHookWindowsHookEx(hhk:HHOOK):BOOL;stdcall;hhk：卸载钩子的句柄。例子：（1） 新建1个DLL文件，工程名为KeySpy。library KeySpy;uses SysUtils, Classes, Windows, Messages, hookproc in hookproc.pas;exports setkeyhook,endkeyhook;begin nexthookproc:=0; procsaveexit:=exitproc; exitproc:=keyhookexit;end.（2） 新建一个单元，命名为hookproc.unit hookproc;interfaceuses Windows,Messages,SysUtils,Controls,StdCtrls;var nexthookproc:HHOOK; procsaveexit:Pointer; function setkeyhook:BOOL;export;/加载钩子 function endkeyhook:BOOL;export;/卸载钩子 procedure keyhookexit;far;const afilename=G:debug.txt;/将键盘动作写入文件中var debugfile:TextFile;implementationfunction keyboardhookhandler(icode:Integer;wparam:WPARAM;lparam:LPARAM):LRESULT;stdcall;export;begin if icode0 then begin Result:=CallNextHookEx(nexthookproc,icode,wparam,lparam); Exit; end; AssignFile(debugfile,afilename); try Append(debugfile); except Rewrite(debugfile); end; if(GetKeyState(wparam) and $8000)=$8000 then /获取按键状态 begin if(GetKeyState(VK_RETURN)0) then /是否按下回车键 begin Writeln(debugfile,); end else begin write(debugfile,Char(wparam); /写入文件 end; end; CloseFile(debugfile); /关闭文件 Result:=0;end;function setkeyhook:BOOL;export;/加载钩子begin if nexthookproc=0 then begin nexthookproc:=SetWindowsHookEx(WH_KEYBOARD,keyboardhookhandler,HInstance,0);/装载钩子 end; Result:=nexthookproc0;end;function endkeyhook:BOOL;export;/卸载钩子begin if nexthookproc0 then begin UnhookWindowsHookEx(nexthookproc);/卸载钩子 nexthookproc:=0; MessageBeep(0); end; Result:=nexthookproc=0;end;procedure keyhookexit;far;begin if nexthookproc0 then endkeyhook; ExitProc:=procsaveexit;end;end.（3） 选择“Project”“Compile KeySpy”生成DLL文件。（4） 新建应用程序静态装载dll文件：function setkeyhook:Boolean;stdcall;external KeySpy.dll;function endkeyhook:Boolean;stdcall;external KeySpy.dll;安装钩子直接调用setkeyhook函数，卸载钩子直接调用endkeyhook函数。40. 获取和修改计算机名（1） 获取计算机名function GetComputerName(lpBuffer:PChar;var nSize:DWORD):BOOL;stdcall;lpBuffer：指向用于存储获得的计算机名的字符串地址。nSize：字符串的最大长度。（2） 修改计算机名function SetComputerName(lpComputerName:PChar):BOOL;stdcall;lpComputerName：准备修改的名称字符串。41. 开辟、释放空间函数（1） GetMem(s字符串名,n字节数);/开辟n个字节空间给s字符串（2） FreeMem(s字符串名,n字节数);/释放s字符串的n个字节空间42. 限制鼠标活动区域（1） 锁定、解除鼠标活动范围function ClipCursor(lpRect:PRect):BOOL;stdcall;lpRect:设置鼠标移动范围的矩阵指针（nil解除限定）（2） 坐标转换function ClientToScreen(hWnd:HWND;var lpPoint :TPoint):BOOL;stdcall;hWnd：转换的窗口句柄；lpPoint：一个坐标指针结构，该结构包含x和y两个域。例子：var/锁定鼠标 a,b:TPoint; area:TRect;begin a.X:=GroupBox1.Left; a.Y:=GroupBox1.Top; b.X:=GroupBox1.Left + Groupbox1.Width; b.Y:=GroupBox1.Top + GroupBox1.Height; Windows.ClientToScreen(Handle,a);/坐标转换 Windows.ClientToScreen(Handle,b);/坐标转换 area.Left:=a.X; area.Top:=a.Y; area.Right:=b.X; area.Bottom:=b.Y; ClipCursor(area);end;ClipCursor(nil);/解除鼠标锁定43. 打开控制面板中的程序打开控制面板中的程序就是执行rundll32.exe，调用shell32.dll中的