programmstart überwachen

[DeddyH]

Das sieht soweit OK aus, da verwundert es mich schon, dass die 33 nicht funktioniert.

[edit] Wäre hier eine RadioGroup nicht angebrachter als ein Haufen CheckBoxen? Außerdem fände ich es so übersichtlicher:

Delphi-Quellcode:

var ini: TIniFile;
    iSuccess: Integer;
    sPfad: string; 
begin
  sPfad := '';
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+ 'Einstellungen.ini');
  if rbspanish.Checked then
    sPfad := ini.ReadString('Pfad','Spanisch','Nichts eingetragen')
  else if rbenglish.Checked then
    sPfad := ini.ReadString('Pfad','Englisch','Nichts eingetragen')
  else if rbgerman.Checked then
    sPfad := ini.ReadString('Pfad','Deutsch','Nichts eingetragen')
  else if rbjapanese.Checked then
    sPfad := ini.ReadString('Pfad','Japanisch','Nichts eingetragen')
  else if rbrussian.Checked then
    sPfad := ini.ReadString('Pfad','Russisch','Nichts eingetragen');
  ini.free;
  if sPfad <> '' then
    begin
      iSuccess := ShellExecute(Handle, 'open', PChar(sPfad), nil, nil, SW_NORMAL);
      if iSuccess < 33 then
        MessageBox(Handle,PChar(SysErrorMessage(iSuccess)),'Fehler',MB_OK or MB_ICONERROR)
      else
        application.Terminate
    end;
end;

[/edit]

[edit2] Was soll eigentlich passieren, wenn Du "Nichts eingetragen" erhältst? [/edit2]