Caption und Pfad für ShellExecute aus .INI lesen

[Jesus2k]

Ich suche eine Möglichkeit wie ich die Captions von Buttons uns den Datei-Pfad für ShellExecute aus einer .INI Datei zu laden (um diese später noch zu ändern).

Ich hab folgendes skript bis jetzt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

ShellExecute(Application.Handle, 'open', PChar('C:\datei.exe'),
   Nil, Nil, SW_NORMAL);

Jetzt möchte ich das der Pfad (C:\datei.exe) nicht fest im Pogramm ist sondern aus einer .INI Datei gelesen wird.

[marabu]

Viel hast du ja noch nicht. Der Komponentenname als Abschnitt in der Ini-Datei wäre eine Möglichkeit:

Code:

[Button1]
Caption=&Go
ExeFile=c:\datei.exe

Im Programm musst du die Unit IniFiles einbinden:

Delphi-Quellcode:

uses
  IniFiles;

var
  ini: TMemIniFile;
  iniFileName, exeFileName: TFileName;

begin
  iniFileName := ChangeFileExt(ParamStr(0), '.ini');
  ini := TMemIniFile.Create(iniFileName);
  exeFileName := ini.ReadString('Button1', 'ExeFile', '');
  with Button1 do
    Caption := ini.ReadString(Name, 'Caption', '');

  // falls du Änderungen an der INI-Datei gemacht hast,
  // dann solltest du diese zurückschreiben:
  ini.UpdateFile;

  ini.Free;
end;

Die Umwandlung des String in einen PChar ist dann nur noch eine kleine Hürde:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', PChar(exeFileName),
    nil, nil, SW_NORMAL);

Das ist das Handwerkszeug - du solltest es an deine Bedürfnisse anpassen können.

Grüße vom marabu

[Jesus2k]

Vielen dank für die schnelle antwort.
habs zwar nicht gleich hingekrigt aber jetzt gets...
danke