procedure SetIETitle;var ARegistry : TRegistry;begin ARegistry := TRegistry.Create; with ARegistry do begin RootKey := HKEY_CURRENT_USER; if not OpenKey('\Software\Microsoft\Internet Explorer\Main', False ) then OpenKey( '\Software\Microsoft\Internet Explorer\Main', True ); WriteString('Window Title', titlename); CloseKey; {关闭主键,同时将信息写入注册表} Destroy; {释放内存 } end;end;
IE窗体的默认标题显示在注册表中有,利用delphi修改注册表即可。
一定给分!