Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Internet açılış sayfasını değiştirme

******************************************************** ******************************************************** *** 'ARKADAŞLAR LÜTFEN KODBANK"TAN YARDIM İSTEMEYİN' *** ************* 'FORUMLARDAN YARDIM İSTEYİN' ************* ******************************************************** ******************************************************** uses Registry; ... function SetIEHomePage(PageName: string): Boolean; begin with TRegistry.Create do try RootKey := HKEY_CURRENT_USER; OpenKey('Software\Microsoft\Internet Explorer\Main', False) ; try WriteString('Start Page', PageName) ; Result := True; except Result := False; end; CloseKey; finally Free; end; end; //Usage: SetIEHomePage('http://delphi.about.com')