ShellExecute 42, GetLastError 126

[hoika]

Hallo,

folgender Code funktioniert plötzlich nicht mehr,
d.h. der für Txt hinterlegte Editor (notepad.exe) wird nicht gestartet.

Delphi-Quellcode:

var
  sDateiName: String;
  hInst: Integer;
  iError: Integer;
begin
  sDateiName:= 'C:\Temp\Log.txt';  // nur zum Testen
  
  if FileExists(sDateiName) then
  begin
    hInst := ShellExecute(0, nil, PChar(sDateiName), '', nil, 0);
    iError := GetLastError;
  end;

hInst=42
iError=126


Was ist das denn?

[Der schöne Günther]

Zitat:

If the function succeeds, it returns a value greater than 32.

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx


Wo ist dein Problem?

[TiGü]

Geht es um die Antwort auf die Frage nach dem Leben, dem Universum und dem ganzen Rest? :wink:

[hoika]

Hallo,
der Editor wird nicht gestartet.

[Der schöne Günther]

Schau doch noch mal genau in die Doku zu ShellExecute :warn:

Auflösung:
Du gibst ja auch einen Parameter (leerer String statt nil) an. Das bedeutet implizit dass deine .txt-Datei eine Anwendung wäre.

Zitat:

If lpFile specifies a document file, lpParameters should be NULL.

[DeddyH]

Wird er nicht gestartet, oder siehst Du ihn nur nicht? Du gibst als nShowCmd 0 an, was SW_HIDE entspricht.

[hoika]

Hallo,

Zitat:

Du gibst ja auch einen Parameter (leerer String statt nil) an. Das bedeutet implizit dass deine .txt-Datei eine Anwendung wäre.

Nö, mit PDF klappt das ja auch.

Zitat:

Wird er nicht gestartet, oder siehst Du ihn nur nicht? Du gibst als nShowCmd 0 an, was SW_HIDE entspricht.

Argz, genau das war das Problem;)
Ich Dussel.
Interessanterweise ignoriert der Acrobat-Reader bei PDFs meinen Parameter.

[Der schöne Günther]

Zitat:

Zitat von hoika (Beitrag 1373808)

Nö, mit PDF klappt das ja auch.

Richtig ist es trotzdem nicht

[himitsu]

Acrobat ignoriert bösartig noch viel mehr.

.Enabled bei der ActiveX-Komponente
und die Sidebars werden auch mit vorliebe angezeigt, auch wenn man das immer wieder deaktiviert,
also niemals dessen Verhalten als Referenz nutzen.

In Delphi entsprechen die leeren Strings ( '' ) einem NIL.
Mit Ausnahme von PChar-Casts, welche das auf einen Dummystring mit zwei NULL ( #0#0 ) umleiten.

[Zacherl]

Zitat:

Zitat von hoika (Beitrag 1373793)

Delphi-Quellcode:

hInst := ShellExecute(0, nil, PChar(sDateiName), '', nil, 0);
iError := GetLastError;

Kann man in deinem Codebeispiel nicht mehr erkennen, aber prüfst du auch erst den Wert von

Delphi-Quellcode:

hInst

, bevor du

Delphi-Quellcode:

iError

auswertest? Im Erfolgsfalle ist der Wert von GetLastError nämlich immer undefiniert.

[himitsu]

Zitat:

Zitat von Zacherl (Beitrag 1373860)

Im Erfolgsfalle ist der Wert von GetLastError nämlich immer undefiniert.

Undefiniert nicht.
Der Wert passt ja definitiv zum letzten Fehler, irgendeiner vorher aufgerufenen WinAPI-Funktion, bzw. vom letzten SetLastError.

[Zacherl]

Zitat:

Zitat von himitsu (Beitrag 1373914)

irgendeiner

Das würde ich ja schon als ziemlich undefiniert bezeichnen :P Vor allem, wenn der letzte API Aufruf erfolgreich war, man aber nur auf

Delphi-Quellcode:

GetLastError

!= 0 prüft, gibt es massive Probleme.

[jaenicke]

Man kann vorher auch SetLastError benutzen um das zu vermeiden.

[himitsu]

Zitat:

Zitat von jaenicke (Beitrag 1373919)

Man kann vorher auch SetLastError benutzen um das zu vermeiden.

Jain.

Laut Definition gibt diese API nur einen LastError zurück, wenn das Result sagt, dass was kaputt ist.

Jetzt kann diese API aber intern weitere APIs aufrufen und Diese auch usw.
Aber nur weil eine der internen APIs einen Fehler meldete, heißt das noch lange nicht, dass "unsere" API auch 'nen Fehler liefert. (die kann ja intern noch einen alternativen Weg gehen, oder so)

Tja, wenn du vorher z.B. SetLastError(NO_ERROR) nutzt und hinterher der GetLastError was Anderes sagt, dann hat das rein garnichts zu sagen, so lange das Result sagt "ich bin OK".

[jaenicke]

Ich wollte damit auch nicht sagen, dass man das so machen sollte.

[hoika]

Hallo,
Thema ist beendet, ich hatte ja SW_HIDE (0) übergeben.

Danke !