|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите разобраться
На форме имеется множество кнопок 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, 02.10.2017 в 18:45. |
#2
|
|||
|
|||
Код:
PlaySound('D:\1.wav', 0, SND_ASYNC); |
#3
|
|||
|
|||
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; Код:
[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; |
#4
|
|||
|
|||
Цитата:
|