发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 返回程序执行参数 (转载)
发信站: 哈工大紫丁香 (2000年09月01日18:52:38 星期五), 站内信件

【 以下文字转载自 VisualProgram 讨论区 】
【 原文由 alias 所发表 】
用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; 

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mig.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: club.hit.edu.cn]