Probleme mit Listbox Einträgen

[haentschman]

[OT]

Zitat:

*Piiiiiiiiiiiiiiieeeepppp*... *schnauf*

...mit bildlichem Vorstellungsvermögen kommt das gut...
[/OT]

[DeddyH]

[OT] Der *Piep*-Button sollte eigentlich ein Scherz sein, aber langsam könnte ich mich mit dem Gedanken anfreunden [/OT]

[edit] @Johnny Bravo: nun nochmal im Ganzen die Methode zum Aufruf, damit wir endlich mal fertig werden [/edit]

[Johnny Bravo]

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);

function ShellExecuteErrMessage(int_Code: INTEGER): String;

begin
  case int_code of
     0: result := 'Zuwenig Speicher, ausführbare Datei war zerstört, Relokationswerte waren ungültig';
     2: result := 'Datei wurde nicht gefunden.';
     3: result := 'Verzeichnis wurde nicht gefunden.';
     5: result := 'Fehler beim gemeinsamen Zugriff auf eine Datei im Netz oder Fehler beim Zugriff auf eine gesperrte Datei im Netz.';
     6: result := 'Bibliothek forderte separate Datensegmente für jede Task an.';
     8: result := 'Zuwenig Speicher, um die Anwendung zu starten.';
    10: result := 'Falsche Windows-Version.';
    11: result := 'Ungültige ausführbare Datei. Entweder keine Windows-Anwendung oder Fehler in der EXE-Datei.';
    12: result := 'Anwendung für ein anderes Betriebssystem.';
    13: result := 'Anwendung für MS-DOS 4.0.';
    14: result := 'Typ der ausführbaren Datei unbekannt.';
    15: result := 'Versuch, eine Real-Mode-Anwendung (für eine frühere Windows-Version) zu laden.';
    16: result := 'Versuch, eine zweite Instanz einer ausführbaren Datei mit mehreren Datensegmenten die nicht als nur lesbar gekennzeichnet waren, zu laden.';
    19: result := 'Versuch, eine komprimierte ausführbare Datei zu laden.' + #13 + 'Die Datei muß dekomprimiert werden, bevor sie geladen werden kann.';
    20: result := 'Ungültige dynamische Linkbibliothek (DLL).' + #13 + 'Eine der DLLs, die benötigt wurde, um die Anwendung auszuführen, war beschädigt.';
  else
    result := 'Ein Unbekannter Fehler ist aufgetreten. (' + IntToStr(int_code) + ')';
  end;
end;

begin
 lIndex := Form2.ListBox1.ItemIndex;
if lIndex < 0 then exit;

if Err <=0 then
begin

ShowMessage(MeinArray[lIndex].RealFileName); //nur zur Kontrolle
ShellExecute(Application.Handle,
      'open',
      Pchar(MeinArray[lIndex].RealFileName),
      NIL,
      NIL,
      SW_SHOWNORMAL);
end;

  if Err < 33 then
    Showmessage(ShellExecuteErrMessage(Err));
    if CheckBox2.Checked then
     Application.Minimize;

  end;

[DeddyH]

Kannst Du mir mal erklären, wieso das schon wieder verkehrt herum da steht? Letzter Versuch:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);

function ShellExecuteErrMessage(int_Code: INTEGER): String;

begin
  case int_code of
     0: result := 'Zuwenig Speicher, ausführbare Datei war zerstört, Relokationswerte waren ungültig';
     2: result := 'Datei wurde nicht gefunden.';
     3: result := 'Verzeichnis wurde nicht gefunden.';
     5: result := 'Fehler beim gemeinsamen Zugriff auf eine Datei im Netz oder Fehler beim Zugriff auf eine gesperrte Datei im Netz.';
     6: result := 'Bibliothek forderte separate Datensegmente für jede Task an.';
     8: result := 'Zuwenig Speicher, um die Anwendung zu starten.';
    10: result := 'Falsche Windows-Version.';
    11: result := 'Ungültige ausführbare Datei. Entweder keine Windows-Anwendung oder Fehler in der EXE-Datei.';
    12: result := 'Anwendung für ein anderes Betriebssystem.';
    13: result := 'Anwendung für MS-DOS 4.0.';
    14: result := 'Typ der ausführbaren Datei unbekannt.';
    15: result := 'Versuch, eine Real-Mode-Anwendung (für eine frühere Windows-Version) zu laden.';
    16: result := 'Versuch, eine zweite Instanz einer ausführbaren Datei mit mehreren Datensegmenten die nicht als nur lesbar gekennzeichnet waren, zu laden.';
    19: result := 'Versuch, eine komprimierte ausführbare Datei zu laden.' + #13 + 'Die Datei muß dekomprimiert werden, bevor sie geladen werden kann.';
    20: result := 'Ungültige dynamische Linkbibliothek (DLL).' + #13 + 'Eine der DLLs, die benötigt wurde, um die Anwendung auszuführen, war beschädigt.';
  else
    result := 'Ein Unbekannter Fehler ist aufgetreten. (' + IntToStr(int_code) + ')';
  end;
end;

begin
  lIndex := ListBox1.ItemIndex;
  if lIndex < 0 then exit;

//if Err <=0 then wo soll der Wert denn bitteschön herkommen?
//begin

  ShowMessage(MeinArray[lIndex].RealFileName); //nur zur Kontrolle
  Err := ShellExecute(Application.Handle,
      'open',
      Pchar(MeinArray[lIndex].RealFileName),
      NIL,
      NIL,
      SW_SHOWNORMAL);
//end;

  if Err < 33 then
    Showmessage(ShellExecuteErrMessage(Err));
    if CheckBox2.Checked then
     Application.Minimize;

end;

[Johnny Bravo]

das hatte ich eben testweise geschrieben, hab vergessen das zu löschen.

Es klappt leider immer noch nicht, die Showmessage bekomme ich auch nicht angezeigt...

Danke für deine geduld und hilfsbereitschaft.

[DeddyH]

Hast Du mal einen Breakpoint gesetzt?

[Johnny Bravo]

Delphi-Quellcode:

[...] 
       Err := ShellExecute(Form2.Handle,
         [...}

da hab ich den breakpoint gesetzt, und da wird mir auch angezeigt das da etwas nicht stimmt.

[DeddyH]

Und wenn Du mal self.Handle einträgst?

[Johnny Bravo]

nichts.
self.Handle, Form2.Handle, und Application.Handle haben nichts gebracht....

[DeddyH]

Was wird Dir denn angezeigt? Lass Dir doch nicht alles aus der Nase ziehen.