*.ini via Button1 mit Editor öffnen?

[sharkx]

Ganzes Thema gelöst

Code:

procedure TForm1.Configuration1Click(Sender: TObject);
begin
if
ShellExecute(application.handle,Pchar('open'),Pchar('notepad'),Pchar(ExtractFilePath(ParamStr(0))+ 'Settings.ini'),Pchar(''),
sw_ShowNormal) >= 32
  then
    showmessage('Config-File must be reload!.')
      else
        showmessage('Notepad not found!');

end;