在 WebBrowser 中如何修改 User Agent？(200分)

s:=AgentComboBox1.Text;

tr:=TRegistry.Create;
try
// write System User Agent

tr.RootKey:=HKEY_CURRENT_USER;
if tr.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',false) then
begin
tr.WriteString('User Agent',s);
tr.Closekey;
end;

tr.RootKey := HKEY_USERS;
if tr.OpenKey('.DEFAULT/Software/Microsoft/Windows/CurrentVersion/Internet Settings', FALSE) then
begin
tr.WriteString('User Agent',s);
tr.CloseKey;
end;

webBrowser.UserAgent:=s;


InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
finally
tr.Free;
end;


以上代碼無效，有人知道要如何改嗎？
或者是 INTERNET_OPTION_USER_AGENT 要如何使用？

OS: Win2000

var
reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings/User Agent/Post Platform', True)
then Reg.WriteString(FUserAgent, '');
finally
Reg.CloseKey;
Reg.Free;
end;

to woodstock 兄：
　　不行，此方法之前也用過，它只會加上 FUserAgent 於原 UserAgent 的尾端！
像 Mozilla/4.0 (compatible; MSIE 5.0; Win32; xxxxxxx)


我想要的是：
　　原先： Mozilla/4.0 (compatible; MSIE 5.0; Win32)
　　換成： Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)

关注

*_*

无办法！
用WINSOCK能直接改，IE把这些都屏避了，不会让你改（相当于改了它的版权了）

^_^:

给我一个必须改的理由先

我想讓我的軟體在網上具有隱蔽之功能，也就是讓站台無法知道正在瀏覽的軟體是什麼！
也不受系統的版本所限制，可以任意更換。^^

我倒！！！果然高深，但我还是不太明白。

[8D]

多人接受答案了。