Delphi
friendan
快乐源于分享丶
展开
-
Delphi移动无标题窗体...
在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可//--------Delphi移动无标题窗体------------------------------------procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer原创 2012-08-24 18:55:38 · 3862 阅读 · 0 评论 -
Delphi发送邮件...
///首先在控件栏定位到:Indy Clients添加控件IdSMTP///再定位到:Indy Misc添加控件IdMessage ///发送邮件函数procedure TForm1.SendMail(YYuser: string;YYpass:string); begin try IdSMTP1.AuthenticationType:=atLogin; //设置登原创 2012-08-24 21:11:36 · 6725 阅读 · 1 评论 -
Delphi结束指定进程...
uses Tlhelp32; //在工程中引入单元Tlhelp32//使用函数前,请在工程的前面对函数进行声明,截图如下 ///Delphi结束指定进程函数function TForm1.EndProcess(ExeFileName:string):integer;const PROCESS_TERMINATE = $0001;var Contin原创 2012-08-24 20:29:20 · 10916 阅读 · 0 评论 -
Delphi编写Win7屏幕保护唤醒工具
本工具网络下载地址:http://download.csdn.net/download/friendan/4637954本工具完整Delphi7源码:http://download.csdn.net/download/friendan/4637961//程序截图如下:写此程序的目的: 很多时候,我需要暂时离开电脑,不想关机,又想延长电脑屏幕的寿命,所以原创 2012-10-12 10:07:24 · 3596 阅读 · 0 评论 -
Delphi文本文件的写操作
最近我用Delphi写了个程序,需要将用户信息写入文件,因此在网上查了下Delphi有关文本文件的操作,经整理后,我将其封装成了一个函数,以方便以后的使用,访函数代码如下://将帐号信息写入文本文件函数procedure TForm1.WriteUserToText(user:String; pass:String);var txt:TextFile;begi原创 2012-10-12 20:42:00 · 4213 阅读 · 0 评论 -
Delphi启动外部程序
无论是用VC还是用Delphi,启动外部程序,调用的都是相同的系统中的API函数,如下Delphi代码所示://登录按钮procedure TForm1.Label_LoginClick(Sender: TObject);beginRunOtherApp('C:\1.exe'); //启动1.exeend;//Delphi启动其它程序函数//参数appPath为要原创 2012-10-12 21:44:10 · 9294 阅读 · 0 评论 -
Delphi中的T
Delphi中的T在Delphi中,标识名中以T开头的都是类的名字,开发者也应遵循这个约定。如组件的父类:TComponent即Delphi中类名的前缀为T,在MFC中类名的前缀为C哈原创 2015-03-05 10:34:20 · 1231 阅读 · 0 评论