Delphi
文章平均质量分 54
Zimmerk
这个作者很懒,什么都没留下…
展开
-
GifImage 2.2 控件下载 for Delphi7/6
GifImage 2.2 控件下载 for Delphi7/622732641GifImage v2.2版的控件下载,内含一个通用版,适用于Delphi7、2007等版本,另外还有两个适用于Delphi7/6的,大家选择使用。GifImage就一款可以使Delphi中的Image组件支持GIF图像的控件,在图像识别、图像显示方面有较广用途。 下载地址:http://download.csdn.原创 2010-02-06 09:26:00 · 1362 阅读 · 1 评论 -
DELPHI TListBox (TStrings类)删除空行的方法
之前做一个程序,用ListBox读入一个文本文件,但文本中有空行,为了删除其中的空行,折腾了好长时间。 先给出一段代码给大家看var i:Integer;begin ListBox1.Items.LoadFromFile(data.txt); for i:=0 to ListBox1.Count - 1 do begin if Trim(ListB原创 2010-04-21 22:19:00 · 1931 阅读 · 0 评论 -
Delphi 删除文件夹
关于DELPHI删除文件夹,我上网查找过了,似乎没有直接现成的可用函数,于是我收集、整理了两个方法。 方法一:procedure DeleteDir(sDirectory:String);var sr:TSearchRec; sPath,sFile:String;begin //检查目录名后面是否有/ if Copy(sDirectory,原创 2010-04-05 21:37:00 · 4933 阅读 · 0 评论 -
在DELPHI中实现无标题窗体的移动最简单的方法
在窗体的OnMouseDown事件中加入下面几行代码即可 If Button = mbleft Then begin ReleaseCapture; SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end; 若窗体的表面被别的控件履盖掉,则需要把上面的代码加入履盖的控件里面。转载 2010-04-17 16:54:00 · 919 阅读 · 0 评论 -
DELPHI GetWindowText - 获取窗口标题
//声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出,会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效,原创 2010-04-15 19:54:00 · 5721 阅读 · 2 评论 -
DELPHI GetClassName - 获取指定窗口的类名
//声明:GetClassName( hWnd: HWND; {指定窗口句柄} lpClassName: PChar; {缓冲区} nMaxCount: Integer {缓冲区大小}): Integer; {返回类名大小; 失败返回 0} //测试1: 新建一个工程, 主窗口的类名默认是 TForm1, 用程序获取一下看看原创 2010-04-15 19:52:00 · 5510 阅读 · 0 评论 -
DELPHI用FindWindow、FindWindowEx - 查找窗口
FindWindow( lpClassName, {窗口的类名} lpWindowName: PChar {窗口的标题}): HWND; {返回窗口的句柄; 失败返回 0}//FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx( Parent: HWND; {要查找子窗口的原创 2010-04-15 18:35:00 · 7183 阅读 · 0 评论 -
DELPHI加密字串(异或运算加密)
这个本来我我在DELPHI盒子看到的,后来我对其作了一点修改,这里上全部代码,可以直接用 首先有两个自定的转换函数:function myStrToHex(s:string):string; //字串转16进制var TmpStr:string; i:integer;begin TmpStr:=; for i:=1 to Length(s)do原创 2010-04-11 12:57:00 · 2079 阅读 · 0 评论 -
DELPHI 让窗体不在任务栏显示
需要用到的一个函数:LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong); 其中nIndex GWL_EXSTYLE Retrieves the extended window styles.dwNewLong WS_EX_TOOLWINDOW Creates a tool原创 2010-02-19 13:40:00 · 9519 阅读 · 0 评论 -
Delphi:TreeView结合Access生成动态目录
方法很简单,先创建一张新表:TClass ,字段ID : 自动编号Caption : 文本 //目录标题Parent : 数字 //父目录ID Delphi 中添加record类型 TNodeData = record ID:integer; Caption:string[50]; Note,Pa原创 2010-02-06 09:32:00 · 2587 阅读 · 4 评论 -
DELPHI 让子窗体显示在任务栏上
重载 CreateParams 方法即可 声明:procedure CreateParams(var Params: TCreateParams);override; procedure TForm2.CreateParams(var Params: TCreateParams);begin inherited; Params.WndParent := 0;转载 2010-04-10 09:13:00 · 3654 阅读 · 0 评论