[gabriell]

На форме имеется множество кнопок 3 из которых при нажатии переходят в интернет, все настройки хранятся внутри программы хотелось бы добавить кнопку или ini для замены интернет адресов,но не представляю как это можно осуществить

Код:

procedure TForm1.Image5Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('http://192.168.0.56/'), nil, nil, SW_SHOW);
PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('http://192.168.0.56/index.php?page=registration'), nil, nil, SW_SHOW);
 PlaySound('SND2', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('http://192.168.0.56/forum/'), nil, nil, SW_SHOW);
PlaySound('SND3', 0, SND_RESOURCE or SND_ASYNC);
end;

lmikle: пользуемся тегами!

[nixon232]

Код:

PlaySound('D:\1.wav', 0, SND_ASYNC);

[lmikle]

nixon, и к чему это было???

По поводу вопроса. Если без "защиты от дурака", то можно примерно так:

Код:

uses IniFiles;
function GetInternetUrl : String;
var
  ini : TInifile;
  IniName : String;
begin
  IniName := ChangeFileExt(Application.ExeName,'.ini');
  Ini := TIniFile.Create(IniName);
  Try
    Result := Ini.ReadString('InternetAddress','BaseAddress','https://www.google.com');
  Finally
    Ini.Free;
  End;
end;

Рядом с исполняемым модулем, пусть будет Project1.exe, создай файлик Project1.ini следующего содержания:

Код:

[InternetAddress]
BaseAddress=http://192.168.0.56

И код кнопок поменяй вот так:

Код:

procedure TForm1.Image5Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(GetInternetUrl), nil, nil, SW_SHOW);
PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(GetInternetUrl + '/index.php?page=registration'), nil, nil, SW_SHOW);
 PlaySound('SND2', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(GetInternetUrl + '/forum/'), nil, nil, SW_SHOW);
PlaySound('SND3', 0, SND_RESOURCE or SND_ASYNC);
end;

[nixon232]

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

nixon, и к чему это было???

Имело место недопонимание вопроса. Думал имеется ввиду воспроизведение "не из интернета" (читай локально)