установка домашних страниц для браузеров firefox, IE, Opera.

[DjSeNseI]

Дам 20руб. Надо написать программу миниатюрную маленьких размеров.
Действие программы: установка домашних страниц для браузеров firefox, IE, Opera.

Также передаётся мне исходный код программы.
ICQ: 316241264

[AlDelta]

~60 центов?

[DjSeNseI]

Ну так там и писать не мега прогу надо)

[W0LF]

Ха-ха, насмешил, за 20 руб я даже Delphi не запущу))

[DjSeNseI]

Не нравится проходим мимо я вас не заставляю!!!

[ybn]

Дело в том, что 20р. не покроют расходы на электроэнергию и интернет. Что само по себе смешно. Так что или проси помощи бесплатно или назначай серьезную цену.

[W0LF]

Сообщение от DjSeNseI

Не нравится проходим мимо я вас не заставляю!!!

Ладно, ладно... Не плачь, вот на тебе для IE и Opera, для FireFox нет, так как ее у меня нету. А за 20 руб. иди купи себе сникерс))

uses ShlObj, IniFiles, Registry;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

procedure OperaHomePage(URL: string);
var
  INI: TIniFile;
begin
  INI := TIniFile.Create(GetSpecialPath($001a) + '\Opera\Opera\operaprefs.ini');
  INI.WriteString('User Prefs', 'Home URL', URL);
  INI.Free;
end;

procedure IEHomePage(URL: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\', False);
  Reg.WriteString('Start Page', URL);
  Reg.CloseKey;
  Reg.Free;
end;

[Black Fregat]

Для FF пятью строчками не обойдешься..