5,392
社区成员
发帖
与我相关
我的任务
分享
var Reg:TRegistry;
sName,sValue:string;
begin
sName:=Application.Title;
sValue:=Application.ExeName;
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False);
Reg.WriteString(sName,sValue);
finally
Reg.CloseKey;
Reg.Free;
end;
URL := 'bbs.csdn.net ';
WebBrowser1.Navigate(URL);