delphi调用SetWindowPos函数, 让当前窗口始终处在程序的最前面拜托各位大神

button1按钮按下时候,让当前的窗口显示在最前面, 否则取消 procedure TfmCommunica.button1Click(Sender : TObject); begin if self.button1.Down then SetWindowPos(self.Handle, Hwnd_Topmost, 0, 0, 0, 0, (SWP_NOMOVE or SWP_NOSIZE)) else SetWindowPos(self.Handle, Hwnd_Notopmost, 0, 0, 0, 0, (SWP_NOMOVE or SWP_NOSIZE)); end;

http:// ; www.neu.edu.cn ’, NULL, NULL, SW_SHOWNORMAL); 格式二: http://网站域名/网页文件名 。如:ShellExecute(Handle, "open", http:// ; www.neu.edu.cn/default.htm ',NULL,NULL, SW_SHOWNORMAL); 如果将FileName参数设置为“mailto:”协议格式,那么该函数将启动默认邮件客户程序,如Microsoft Outlook(也包括Microsoft Outlook Express)或Netscape Messanger。若用户机器中安装了多个邮件客户程序,则该函数将根据Windows 9x/NT注册表中mailto协议处理程序的设置确定启动哪个邮件客户程序。 格式一:mailto: 如:ShellExecute(Handle,"open", "mailto:", NULL, NULL, SW_SHOWNORMAL);打开新邮件窗口。 格式二:mailto:用户账号@邮件服务器地址 如:ShellExecute(Handle, "open"," mailto: [email protected] ", NULL, NULL, SW_SHOWNORMAL);打开新邮件窗口,并自动填入收件人地址。若指定多个收件人地址,则收件人地址之间必须用分号或逗号分隔开(下同)。 格式三:mailto:用户账号@邮件服务器地址?subject=邮件主题&body=邮件正文 如:ShellExecute(handle, ‘open’, ‘ mailto: [email protected] ?subject=Hello&Body=This is a test’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口,并自动填入收件人地址、邮件主题和邮件正文。若邮件正文包括多行文本,则必须在每行文本之间加入换行转义字符%0a。 例子(delphi): 在一个应用程序调用c:\Project1.exe; ShellExecute(handle, 'open','c:\Project1.exe','字串内容',nil, SW_SHOWNORMAL); 在Project1.exe里可以调用: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to paramcount do if ParamStr(i)<>'' then showmessage(ParamStr(i)); end; 最后的那个参数,为窗口指定可视性方面的一个命令。 请用下述任何一个常数 SW_HIDE 隐藏窗口,活动状态给令一个窗口 SW_MINIMIZE 最小化窗口,活动状态给令一个窗口 SW_RESTORE 用原来的大小和位置显示一个窗口,同时令其进入活动状态 SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态 SW_SHOWMAXIMIZED 最大化窗口,并将其激活 SW_SHOWMINIMIZED 最小化窗口,并将其激活 SW_SHOWMINNOACTIVE 最小化一个窗口,同时不改变活动窗口 SW_SHOWNA 用当前的大小和位置显示一个窗口,不改变活动窗口 SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口,同时不改变活动窗口 SW_SHOWNORMAL 与SW_RESTORE相同
温馨提示:答案为网友推荐,仅供参考