Hai,

meine ToolBar ist jetzt zu 75% fertig, also freut euch drauf! ^^

Ein kleines Problem hab ich aber noch:

markieren

Delphi-Quellcode:

procedure TForm1.SpeedButton6Click(Sender: TObject);
var ini: TiniFile;
begin
   ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Einstellungen\'+'config.dat');
   try
  ExecuteProgramm(ini.ReadString('BUTTONS', 'SpeedButton6', ''));
   finally
    ini.Free
   end;
end;

Bei dieser Stelle:
ExecuteProgramm(ini.ReadString('BUTTONS', 'SpeedButton6', '')); öffnet er den Arbeitsplatz, abwohl in der ini überhaupt kein Wert drinsteht...
Kann mir da jemand weiterhelfen?

Zitat:

Kurze Frage zu Code

hat das nicht jeder?

Zitat von TeronG:

Zitat:

Kurze Frage zu Code

hat das nicht jeder?

LÖL


//Edit:
Titel geändert!!!

ExecuteProgramm('Filename') sagt mir grade nix aber prüf doch einfach, ob n gültiger wert vorhanden ist und öffne erst dann die Datei.

evtl. mit FileExists('Filename')

Wen kein Parameter übergeben wird ist das mormal.
Prüfe vorher ob in der INI bzw. dem Eintrag etwas steht.

markieren

Delphi-Quellcode:

var ZuStartendesProgramm : string;

begin
  ZuStartendesProgramm := ini.ReadString('BUTTONS', 'SpeedButton6', '');
  if ZuStartendesProgramm <> '' then ExecuteProgramm( ZuStartendesProgramm )
    else ShowMessage('Kein Eintrag');

  // ...

mür würde das so besser gefallen ... da wird dann gleich geprüft, ob es diese Datei auch giebt (falls man diese per Hand (falsch) eingetippt hat oder sie nachträglich gelöscht/verschoben hat/wurde.)

markieren

Delphi-Quellcode:

var ZuStartendesProgramm : string;

begin
  ZuStartendesProgramm := ini.ReadString('BUTTONS', 'SpeedButton6', '');
  if FileExists(ZuStartendesProgramm)
    then ExecuteProgramm( ZuStartendesProgramm )
    else ShowMessage('Kein Eintrag / Keine gültige Datei.');

  // ...

Das kannst du gern machen, ich bevorzuge es als erstes zu Prüfen ob ReadString überhaupt einen Eintrag enthält. Dann Schauen ob es das File gibt...

zusammenfalten · markieren

Delphi-Quellcode:

var ZuStartendesProgramm : string;

begin
  ZuStartendesProgramm := ini.ReadString('BUTTONS', 'SpeedButton6', '');
  if ZuStartendesProgramm <> '' then
  begin
    if FileExists(ZuStartendesProgramm)
     then ExecuteProgramm( ZuStartendesProgramm )
      else ShowMessage( 'Datei nicht gefunden' );

  end else
  begin
    ShowMessage('Kein Eintrag in der Ini enthalten...');
  end;


  // ...

Wobei zu beachten ist das mit FileExists geprüft wird ob eine datei vorhanden ist. Wenn in dem Eintrag nur Notepad.exe ohne Pfad steht kommt eine Fehlermeldung obwol das Programm ausgeführt werden könnte.
Desswegen ist es besser den Rückgabewert vom ShellExecute nach dem ausführen abzufragen...

vielleicht sollte man auch direkt überprüfen ob das aufzurufende Programm den richtigen Dateitypen hat

zusammenfalten · markieren

Delphi-Quellcode:

var ZuStartendesProgramm : string;

begin
  ZuStartendesProgramm := ini.ReadString('BUTTONS', 'SpeedButton6', '');
  if ZuStartendesProgramm <> '' then
    if FileExists(ZuStartendesProgramm) then
      if ExtractFileExt(ZuStartendesProgramm) in ['.exe','.bat','.com','.scr'] then
        ExecuteProgramm(ZuStartendesProgramm)
      else ShowMessage('Falscher Dateityp')
    else ShowMessage('Datei nicht gefunden')
  else ShowMessage('Kein Eintrag in der Ini enthalten...');

geht das so mit dem set?

Und was ist mit *.scr ?!

// 'nu hat er es noch schnell hinzugefügt