delphi中showmessage后出来的窗体标题怎么改

来源：百度知道 编辑：UC知道 时间：2024/05/24 17:12:57
我的标题显示的是"project1"
假如我把exe文件名字改成"哈哈"
出来的是"哈?"
我应该怎么样让任何时候出来的都是"哈哈"?

showmessage不可以更改标题，可以用MessageBox.
写个过程放在代码段最前段调用：
procedure ShowMessage(const Msg, Title: string);
beginMessageBox(Application.Handle, PChar(Msg), PChar(Title), MB_OK);
end;
//调试即可procedure TForm1.Button1Click(Sender: TObject);
beginShowMessage('Test','标题');
end;

showmessage参数只有一个,实现比较棘手,你可以用messagebox实现你要的效果
如下:
var
Wnd:HWND;
begin
Wnd:=application.Handle;
messagebox(Wnd,PChar('我要提示的信息'),PChar('我的标题'),MB_OK);

后面加“，哈哈”

HOOK Common DLG，MSDN有这么一章吧。