*.ini файл

[foxes]

Как сделать при нажатий кнопки запускать из ini файла силку

Link.ini

[mail]
Link=http://www.programmersforum.ru

procedure TForm2.btnClick(Sender: TObject);
begin
 ini.writeString('name','mail','www.programmersforum.ru');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ini:= TIniFile.Create( 'link.ini');
end;

[ProgDel]

Ссылка должна быть в HTML- файле! А не в ini.

[_SERGEYX_]

uses INIFiles;

var aLink: string;

//Прочитать и запустить
  var INI: TINIFile;
begin
   INI := TIniFile.Create(ChangeFileExt(ParamStr(0),'ini'));
   aLink := INI.ReadString('mail','Link','');
   INI.free;
   ShellExecute (Form1.Handle, nil, Pchar(aLink), nil, nil, SW_RESTORE);
end;

//Записать
  var INI: TINIFile;
begin
   INI := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
   INI.WriteString('mail','Link',aLink);
   INI.free;
end;

[foxes]

Большое вам спасибо ! но не хочет запускать ссилку

[_SERGEYX_]

В раздел Uses добавь ShellAPI

[foxes]

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

В раздел Uses добавь ShellAPI

Я так и делал!

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls, Buttons, ShellAPI;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    procedure btnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  ini:tinifile;
  aLink: string;
implementation

{$R *.dfm}

procedure TForm2.btnClick(Sender: TObject);
begin
   INI := TIniFile.Create(ChangeFileExt(ParamStr(0),'ini'));
   aLink := INI.ReadString('mail','Link','');
   INI.free;
   ShellExecute (Form2.Handle, nil, Pchar(aLink), nil, nil, SW_RESTORE);
end;


end.

[_SERGEYX_]

Хм... аааа, понял...
INI := TIniFile.Create(ChangeFileExt(Param Str(0),'.ini'));
Перед '.ini' точку забыл поставить.

[ZvEr_HaCkEr]

быыдлокодовский вариант

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles,shellapi, StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  link:string;
implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
ini:tinifile;
i:integer;
begin
 ini:=tinifile.Create(extractfilepath(paramstr(0))+'file.ini');
 for I := 0 to componentCount - 1 do

 link:=ini.ReadString('link',tbutton(components[i]).name,tbutton(components[i]).caption);
 shellexecute(handle,nil,pchar(link),nil,nil,sw_normal);

end;

end.

структура иника

[link]
button1=http://dsvload.net

[foxes]

Странно, не запускает, а открывает каталог где находится ini

[_SERGEYX_]

открывает каталог где находится ini

Значит, программа не видит ини-файл.
Поставь точку останова на строке
aLink := INI.ReadString('mail','Link','');
и увидишь, что aLink:='' (пустое значение).
Выполни код

ShellExecute (Form2.Handle, nil, 'http://www.programmersforum.ru', nil, nil, SW_RESTORE);

и убедись, что все работает нормально.