Delphi
关注
分享
扫一扫
文章平均质量分 69
aaronlao
这个作者很懒，什么都没留下…
展开
-
复制文本到剪贴版和从剪贴版取文字
示例:procedure StrToClipbrd(StrValue: string);var A: array[0..255] of char;begin StrPCopy(A, StrValue); Clipboard.SetTextBuf(A);end;function GetStrFromClipbrd : string;begin if Clipboard.HasForma转载 2006-03-16 16:08:00 · 842 阅读 · 0 评论 -
关机代码
procedure ShutDown;const SE_SHUTDOWN_NAME = ＇SeShutdownPrivilege＇; // Borland forgot this declarationvar hToken : THandle; tkp : TTokenPrivileges; tkpo : TTokenPrivileges; zero : DWORD;begin if原创 2006-03-16 16:14:00 · 1399 阅读 · 1 评论 -
让你的窗口适应各种分辨率
假设你在800*600的分辨率下设计的form,第一步：inplementationconst ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.} ScreenHeight: LongInt = 600;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObjec转载 2006-03-16 16:08:00 · 930 阅读 · 0 评论 -
如何动态建立 Menuitem
我的一个小程式，是这样的: 将某一目录底下所有的 *.txt 动态地建立於 某个menuitem下。例如: c:/test 下有三个.txt , 分别是 aa.txt , bb.txt , cc.txt 。 当使用者点下 " 档案 " 的功能选单时，会出现___________________________ 档案(F)--------------------------- | aa转载 2006-03-16 16:06:00 · 885 阅读 · 0 评论 -
如何将文件拷贝到剪贴板
怎样判断当前剪贴板中的内容为文件 ,如何将指定文件 ( 不是文件内容 ) 拷贝到剪贴板中。请问各位大侠 : 怎样判断当前剪贴板中的内容为文件 ,如何将指定文件 ( 不是文件内容 ) 拷贝到剪贴板中。 int GetClipboardFormatName( UINT format, // clipboard format to retrieve LPTSTR l转载 2006-03-16 16:05:00 · 1091 阅读 · 0 评论 -
有关 VCL 控件的常见问题 (安装、卸载、升级BCB版本等)
控件安装 (*.BPL)1.选择 BCB 菜单 File→Close All (关闭所有文件)选择BCB 菜单: Project→Options→Packages→Add, 选择 *.bpl 文件, 然后按“打开”按钮2.BCB 菜单: Project→Options→Directories/Conditionals①Include Path 右面的“…”按钮，添加包含 *.h 文件的文件转载 2006-03-16 16:18:00 · 1586 阅读 · 0 评论 -
在Delphi中常用的函数和属性
名称 类型 说明 A部转载 2006-03-16 16:16:00 · 914 阅读 · 0 评论 -
给你的窗体增加动画效果
Windows图形界面实现了卷帘、淡入淡出和弹出效果，使界面更吸引人。如果你要在你的窗体中使用这些效果，你只需要一个API函数：AnimateWindow! 这个API函数使用简单，你只需要提供你的窗体的句柄、动画进行的毫秒数和一些指定效果和方向的标志。 试着在你的窗体的OnShow事件处理函数中加入下面的代码: ... AnimateWindow(Self.Hand转载 2006-03-16 16:09:00 · 989 阅读 · 0 评论 -
INI 文件编程
Delphi 中的 INI 文件编程 整理编辑 :China ASP---- INI 文件在系统配置及应用程序参数保存与设置方面 ,具有很重要的作用 ,所以可视化的编程一族 ,如 VB 、 VC 、 VFP 、 Delphi 等都提供了读写 INI 文件的方法 ,其中 Delphi 中操作 INI 文件 ,最为简洁 ,这是因为 Delphi3 提供了一个 TInifile 类 ,使我们可以转载 2006-03-16 16:04:00 · 2035 阅读 · 0 评论 -
编写自己的可视化控件
2001-03-09· 宋梦?·yesky 可视化控件(Visual Component)实际上就是一个类(class)，要编写一个类，可以直接在*.pas文件中编写。但是要编写控件，则必须使用包(package)。从File菜单中选择New，新建一个Package，这就是存放和安装控件用的包。然后单击Package窗口中的Add按钮，添加一个元件(Unit)。 在弹出的对话框最转载 2006-03-14 09:22:00 · 698 阅读 · 0 评论 -
打开链接或文件的方法
利用ShellAPI:uses ShellAPI; ShellExecute(handle,＇open＇,pchar(＇mailto:＇+dbedit11.Text),nil,nil,SW_ShowNormal);原创 2006-03-16 16:15:00 · 6249 阅读 · 0 评论 -
如何用Delphi制作录音程序
作者：陈经韬 出处： 更新时间： 2005年03月16日 Delphi是Inprise(前Borland)公司的优秀的可视化编程工具，它自带的Mediaplayer控件是开发多媒体的利器。用它几分钟就可以做出一个象解霸一样可以播放多媒体文件的程序来。但可能很少人知道，用它也可以做一个录音程序。 运行Delphi,在System页拖一个Mediaplayer控件到窗体上,默认名为转载 2006-03-16 16:13:00 · 2147 阅读 · 0 评论 -
屏蔽ALT+F4的一个方法(附:键盘常用ASCII码)
procedure Tfrmenter.edtpwdKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (ssAlt in shift)and(key=115) then key:=0;end; 附:键盘常用ASCII码ESC键 VK_ESCAPE (27)回车键： VK_RETURN (13)TA原创 2006-03-16 16:12:00 · 1661 阅读 · 0 评论 -
DELPHI中用MSCOMM实现串口通信
//发送数据procedure senddata(astr:string); var k:integer; p:pchar; achr:array of char;begin setlength(sbuf,length(astr)); setlength(achr,length(astr)); p:=pchar(astr); for k:=0 to length(as原创 2006-03-16 16:11:00 · 2680 阅读 · 0 评论 -
改变ListView颜色
procedure TQueryForm.ListViewCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin inherited; DefaultDraw:=false; if ((item.Index )mod 2原创 2006-03-16 16:03:00 · 1016 阅读 · 0 评论 -
DELPHI存取JPEG文件到SQL Server数据库
作者：高红岩 来源：programfan.com http://www.csai.cn 2006年03月16日 近日笔者书写一个小型的学生管理系统时，需要用到ADO控件存取SQL Server数据库图片，查看资料发现基本都是针对BMP文件进行操作(巨增数据库大小)，但发现了eagletian高手翻译的ADO英文技术文档，里面涉及到了数据库存取JPEG文件的关键技术，在win98+sql ser转载 2006-03-21 10:04:00 · 860 阅读 · 0 评论