1:
2:
3:
4:
5:
6:

procedure TmainForm.Button1Click(Sender: TObject);
var ini : TInifile; Programm1 : String;
begin
Programm1:=Ini.ReadString('Button1','Run','');
ShellExecute(Handle, 'open', Ini.ReadString('Button1','Run',''), nil, nil, SW_SHOWNORMAL);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Var
  Ini: tIniFile;
  Programm1: String;
Begin
  Ini := tIniFile.Create ('c:\test.ini');
  Programm1 := Ini.ReadString ('Button1', 'Run', '');

  If Programm1 <> '' Then
    ShellExecute (Handle, 'open', pChar (Programm1), nil, nil, SW_SHOWNORMAL);

  Ini.Free;
End;