-
-
巧改ShowMessage的提示标题
-
发表于: 2006-12-19 21:09
-
有一个程序必须用ShowMessage，但是它的提示标题却是程序名，消息显示出来很难看，于是，费了点功夫，我改成了下面的delphi语句：
procedure TForm1.Button1Click(Sender: TObject);
var
HD:hwnd;
begin
hd:=FindWindow(Nil,pchar('msgat'));//找到原句柄'msgat'
SetWindowText(hd,'说明');//修改句柄为'说明'
ShowMessage('现在的标题是自定义的说明，而不是程序名称msgat了');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
HD:hwnd;
begin
hd:=FindWindow(Nil,pchar('msgat'));//找到原句柄'msgat'
SetWindowText(hd,'说明');//修改句柄为'说明'
ShowMessage('现在的标题是自定义的说明，而不是程序名称msgat了');
end;
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
|
|
|---|---|
|
|
汗。。我以为是什么呢
1、脱壳后修改资源就可以办到 2、即使用编程也很容易 
|
|
|
|
|
|
最初由 dxcat 发布 没你强~我不行
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
