Hallo,

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

zusammenfalten · markieren

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?

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?

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

Hallo,
der Editor wird nicht gestartet.

Schau doch noch mal genau in die Doku zu ShellExecute

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.

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

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.

Zitat von hoika:

Nö, mit PDF klappt das ja auch.

Richtig ist es trotzdem nicht

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.

Zitat von hoika:

markieren

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 hInst , bevor du iError auswertest? Im Erfolgsfalle ist der Wert von GetLastError nämlich immer undefiniert.