ShellExecute funxt nach OpenDialog nicht

[PAX]

seid gegrüßt!

ich hab eine applikation und eine hilfe geschrieben. die hilfe liegt als chm-datei vor. über ein menüsystemeintrag starte ich die hilfdatei durch shellexecute

Delphi-Quellcode:

procedure TForm1.Wiegeheichvor1Click(Sender: TObject);
begin
  ShellExecute(Handle,nil,PChar('Hilfe.chm'),
   nil,nil,SW_SHOW);
end;

nachdem ich aber den opendialog im programm genutzt habe, kann ich die hilfe nicht mehr starten. der befehl wird zwar abgearbeitet, aber er startet die hilfe nicht.
woran liegt das?
wie kann ichs besser machen?
beste grüße


PAX

[Flocke]

Der "OpenDialog" verändert wahrscheinlich dein Arbeitsverzeichnis.
Mache es so:

Delphi-Quellcode:

PChar(ExtractFileDir(Application.ExeName)+'Hilfe.chm')

[Nachtrag]
Wieder mal blind geschrieben, da ich mein Delphi noch nicht gestartet habe.
1. Ggf. brauchst du eine lokale Variable für den Ergebnisstring
2. Ggf. must du ExtractFilePath und nicht ExtractFileDir nehmen (bin mir nicht sicher)

[mirage228]

Hi,

Du kannst in den Options auch die Option ofNoChangeDir einstellen, sodass das Arbeitsverzeichnis nicht geändert wird, falls Du den Dialog aufrufst. So könntest Du Deinen ursprünglichen Code beibehalten.
Ich rate Dir jedoch, den Code von Flocke zu verwenden, der genaugenommen so aussehen muss (@Flocke: ExtractFileDir gibt kein \ am Ende des Pfades zurück, also doch ExtractFilePath ;) ).

Delphi-Quellcode:

PChar(ExtractFilePath(Application.ExeName) + 'Hilfe.chm')

mfG
mirage228

[r2c2]

Unds ich würde vorschlagen *auf jeden Fall* den Kompletten Pfad zu nehmen. Niemals relative Pfade verwenden! (Außer du hast vor n Russisch-Roulette-Prog zu schreiben. :mrgreen: ) Das Arbeitsverzeichnis kann nämlich auch n anderes Prog verändern und dann hast du n nicht identifizierbaren Bug.

mfg

Christian

[yankee]

Code:

HINSTANCE ShellExecute(

    HWND hwnd,   // handle to parent window
    LPCTSTR lpOperation,   // pointer to string that specifies operation to perform
    LPCTSTR lpFile,   // pointer to filename or folder name string
    LPCTSTR lpParameters,   // pointer to string that specifies executable-file parameters 
    LPCTSTR lpDirectory,   // pointer to string that specifies default directory
    INT nShowCmd    // whether file is shown when opened
   );

also da gibt es auch 'ne Möglichkeit ein default-directory anzugebn. Versuche sonst mal als vorletzten Parameter dein aktuelles Verzeichnis zu nehmen...

[Luckie]

Flocke und mirage228 haben schon die vollkommen korrekte Lösung gegeben. Alles weiter wäre für mich nur Frickelei.

[PAX]

ich weiß garnicht, wie ich euch danken kann... :-D

ich stand unter zeitdruck und ihr habt mir geholfen, es doch noch vernünftig fertig zu bekommen... :cheers:

vielen dank, für eure kompetente hilfe.
einen angenehmen tag wünsch ich euch!

viva los tioz!



PAX