Question

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;

Answer 1

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: who@mail.neu.edu.cn ", NULL, NULL, SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址。若指定多个收件人地址，则收件人地址之间必须用分号或逗号分隔开（下同）。 格式三：mailto:用户账号@邮件服务器地址?subject=邮件主题＆body=邮件正文 如：ShellExecute(handle, ‘open’, ‘ mailto: who@mail.neu.edu.cn ？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相同