*.ini via Button1 mit Editor öffnen?

[sharkx]

Hallo!

ich möchte via Button eine *.ini in dem Windows eigenen editor öffnen.

folgendes habe ich probiert ...

Code:

ShellExecute(Application.Handle,'open',PChar(getsystemdir+'\settings.ini');

Leider funktioniert dies aber nicht.
Hat jemand ne andere idee? Wäre super :)

[mirage228]

da fehlen doch ein paar Parameter oder?

Delphi-Quellcode:

ShellExecute(Handle, 'open', PChar(getsystemdir+'\settings.ini'), '', '', SW_SHOWNORMAL);

so vielleicht?

[sharkx]

Nein leider auch nicht :/

[mirage228]

hm... wie sieht die funktion "getsystemdir" aus?

[sharkx]

hoffe das dies so richtig ist ...

Code:

VAR sysDirString: STRING;
sysdir: ARRAY[0..Max_path+1] OF CHAR;
BEGIN
GetsystemDirectory(sysDir,MAX_PATH+1);
SysDirString:=StrPas(sysDir);

[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;