friendan的专栏

在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可 //--------Delphi移动无标题窗体------------------------------------ procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer

///首先在控件栏定位到:Indy Clients添加控件IdSMTP ///再定位到:Indy Misc添加控件IdMessage ///发送邮件函数 procedure TForm1.SendMail(YYuser: string;YYpass:string); begin try IdSMTP1.AuthenticationType:=atLogin; //设置登

uses Tlhelp32;  //在工程中引入单元Tlhelp32 //使用函数前，请在工程的前面对函数进行声明，截图如下   ///Delphi结束指定进程函数 function TForm1.EndProcess(ExeFileName:string):integer; const PROCESS_TERMINATE = $0001; var Contin

本工具网络下载地址：http://download.youkuaiyun.com/download/friendan/4637954 本工具完整Delphi7源码:http://download.youkuaiyun.com/download/friendan/4637961 //程序截图如下: 写此程序的目的：     很多时候，我需要暂时离开电脑，不想关机，又想延长电脑屏幕的寿命， 所以

最近我用Delphi写了个程序，需要将用户信息写入文件，因此在网上查了下 Delphi有关文本文件的操作，经整理后，我将其封装成了一个函数， 以方便以后的使用，访函数代码如下: //将帐号信息写入文本文件函数 procedure TForm1.WriteUserToText(user:String; pass:String); var txt:TextFile; begi

无论是用VC还是用Delphi,启动外部程序， 调用的都是相同的系统中的API函数,如下Delphi代码所示: //登录按钮 procedure TForm1.Label_LoginClick(Sender: TObject); begin RunOtherApp('C:\1.exe'); //启动1.exe end; //Delphi启动其它程序函数 //参数appPath为要

Delphi中的T 在Delphi中，标识名中以T开头的都是类的名字，开发者也应遵循这个约定。 如组件的父类：TComponent 即Delphi中类名的前缀为T, 在MFC中类名的前缀为C哈