动态修改外部应用程序标题与图标 (2001年1月10日).txt

自己对DELPHI学习的一点体会

动态修改外部应用程序标题与图标 (2001年1月10日) 

网友更新  分类:Win API   作者:孙一鸣 阎 磊  推荐:yanlei   阅读次数:467  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
以修改计算器为例,注意是要它WINUPD.ICO在你的程序目录下
var
form_hw:HWND;
rcw : Word;
cn:Pchar;
ic:TICON;
begin
rcw := WinExec('calc.exe', SW_SHOWNORMAL);//启动计算器
if rcw<=32 then //无法启动计算器
begin
Application.Terminate;
end ;

while true do//确保计算器启动
begin
form_hw:=FindWindow(nil,'计算器');//计算器启动后标题为计算器,你一定要注意。
if boolean(form_hw) then break;
end;

cn:='大家的计算器';//修改后的标题
ic:=TICON.create;
ic.LoadFromFile('WINUPD.ICO');//修改后的图标
SendMessage(form_hw,WM_SETTEXT,0,Integer(cn));//修改标题
Sendmessage(form_hw,WM_SETICON,ICON_SMALL,ic.handle);//修改图标
freeandnil(ic); //释放ic
end;