本文整理自网络，侵删。
Delphi 传入应用程式的命令列参数, 请参考以下的说明:
用ParamCount函数取得命令参数的个数:
呼叫 ParamStr(0), 传回执行档的档名(含路径)
呼叫 ParamStr(n), 传回第ｎ个参数的内容
procedure TForm1.FormCreate(Sender: TObject);
var
sFileName: string;
begin
if ParamCount > 0 then begin // (* 有执行参数传入 *)
sFileName := ParamStr(1);// (* 取得参数内容 *)
if FileExists(sFileName) then
Memo1.Lines.LoadFromFile(sFileName)
else
Application.MessageBox('找不到指定的档案', '讯息', 48);
end;
end;
转让控制权
有时由于长时间的循环语句占用了cpu的处理权,无法运行其他程序,照成死循
环。这时用以下命令转让控制权,让操作系统处理其他事件。
Application.ProcessMessages;
关闭Windows
控制WINDOWS的开关:如关闭WINDOWS,重新启动WINDOWS等, ExitWindowsEx(UINT
uFlags,DWORD dwReserved);是实现这一功能的API函数
首先定义常数
const
EWX_FORCE=4; //关闭所有程序并以其他用户身份登录
EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式
EWX_REBOOT=2; //重新启动计算机
EWX_SHUTDOWN=1;//关闭计算机
运行时给How赋值,让他等于EWX_SHUTDOWN或其他,调用以下语句
ExitWindowsEx(How,0);
实现超级链接
在程序中实现打开浏览器,打开邮件程序的功能首先要在uses部分加入
uses Shellapi;
接着在需要超级链接的地方使用
SellExecute(handle,nil,pchar('
mailto:guihong@163.net'),nil,nil,sw_shownormal);
其中pchar()中的mailtos是打开邮件程序的,可以换成
http://、ftp://、
gopher://、new:、telnet:等多种形式
程序启动画面
在启动程序之前出现启动画面的方法多得是,但有些是调用“记时器”来延时
的,这种方法有时拖慢了程序的启动速度,下面介绍又一方法,给大家参考对比一
下。
建一个启动封面窗体,假设为Form2,先设置好BorderIcons、BorderStyle、
FormStyle、Position,接着在窗体上加入图片框、文本框,设置好后在菜单里选
Project里的Options,把Form2从Auto-create forms里转到Available forms。再接着
就是按Ctrl+F12键,选Project1,出现工程单元,其内容如下
...
Application.CreateForm(TForm1, Form1);
Application.Run;
..
在Application.CreateForm(TForm1, Form1); 前加入如下语句:
form2:=tform2.create(application);
form2.Show;
form2.Update;
然后在Application.Run;前面加入如下语句:
form2.hide;
form2.free;
丰富多彩的标签
如果你不满足于Delphi提供的简单的标签提示,想要在标签中有不同的字体,有
不同的颜色来丰富我们的表现能力,而且不用第三方提供的控件的话。那么只要巧妙
的利用Delphi自己提供的TRichEdit就可以了。
首先将TRichEdit控件的边框属性RichEdit1.BorderStyle设为bsNone;同时设置只
读属性RichEdit1.ReadOnly为True;然后利用Windows提供的“写字板”之类的软件制
作好RichText格式的文本,通过以下语句就可以显示出来了:
RichEdit1.PlainText:False;
RichEdit1.Lines.LoadFromFile('c:test.rtf'); 相关阅读 >>
Delphi 调用浏览文件夹 selectdirectory
Delphi 的tstringbuilder防止服务器内存碎片化
Delphi d10.x 安卓app开发中按返回键后程序不退出程序的方法
更多相关阅读请进入《Delphi》频道 >>
