Verrücktes Problem mit Delphi7 und ShellExecute

[iphi]

Vielen Dank für die Tipps!

Es ist übrigens nicht nur Avira, was anschlägt. Hab spasseshalber das Programm bei VirusTotal scannen lassen.
9 von 55 positiv:

Zitat:

AegisLab Troj.W32.Llac 20160223
Antiy-AVL Trojan/Win32.Agent 20160223
Avast Win32:Malware-gen 20160223
Avira (no cloud) TR/ATRAPS.Gen 20160223
DrWeb Trojan.DownLoader1.14855 20160223
Jiangmin TrojanDownloader.Banload.almf 20160223
Qihoo-360 HEUR/QVM05.1.Malware.Gen 20160223
Zillya Downloader.Banload.Win32.16248 20160223
nProtect Trojan-Downloader/W32.Banload.375296.R 20160223

P.S.
Interessant nur, dass das Delphi6 Kompilat keinen Alarm auslöst.

[mm1256]

Interessant auch, dass es so viele verschiedene Viren sind. Da sieht man mal, wie krank das System teilweise ist.

[Luckie]

Es wird wohl immer das selbe Bit-Muster sein, nur jeder Hersteller gibt ihr einen anderen Namen.

[jaenicke]

Zitat von iphi:

Es ist übrigens nicht nur Avira, was anschlägt. Hab spasseshalber das Programm bei VirusTotal scannen lassen.
9 von 55 positiv:

Keiner der dort aufgeführten Scanner fällt bei mir in die Kategorie gut. Überraschen tut mich das Ergebnis (leider) nicht.

[sahimba]

Etwas OT: ShellExecute funktioniert unter Windows 10 nicht mehr so, wie bisher und man sollte ShellExecuteEx den Vorzug geben. Hier bspw. wurden Dateien (bspw. PNG) nicht mehr mit den verknüpften Anwendungen geöffnet. Finde leider gerade den Link nicht, in welchem Genaueres steht.
Vielleicht eine gute Gelegenheit, das anzupassen?

[bra]

Zitat von jaenicke:

Keiner der dort aufgeführten Scanner fällt bei mir in die Kategorie gut. Überraschen tut mich das Ergebnis (leider) nicht.

Bei mir hat Avira bisher immer ganz gute Dienste geleistet und auch keine falschen Alarme verursacht. Bei Tests schneidet der auch immer ganz gut ab. Ich glaube das ist alles sehr subjektiv.

Außerdem ist es immer noch besser, wenn der falsche Alarm schon beim Entwickeln kommt, als erst beim Kunden...

[baumina]

Ich konnte nach einem Avira-Update nicht mehr debuggen, dauerte ewig bis sie den Fehler damals behoben hatten. In der Zwischenzeit wurde Avira in unserem Haus durch GData ersetzt, das Ding bremst nur, macht aber sonst keinen Kummer.

[Der schöne Günther]

Zitat von sahimba:

ShellExecute funktioniert unter Windows 10 nicht mehr so, wie bisher und man sollte ShellExecuteEx den Vorzug geben. Hier bspw. wurden Dateien (bspw. PNG) nicht mehr mit den verknüpften Anwendungen geöffnet. Finde leider gerade den Link nicht, in welchem Genaueres steht.

Das wäre mir neu. Meine PNGs gehen auch unter Windows 10 genauso wie vor zehn Jahren.

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   if ShellExecute(Handle,'open','notepsd.exe','', nil, SW_SHOWNORMAL) <= 32 then
      RaiseLastOSError();
end;

Mit einer falschen Fehlerbehandlung kann man auch viel Schrott produzieren.

ShellExecute/ShellExecuteEx gibt den Fehler nicht per GetLastError zurück.

RaiseLastOSError nutzt aber GetLastError
Und den Result als Parameter an RaiseLastOSError zu übergeben geht auch nicht, da die Fehlercodes sich unterscheiden.

Delphi-Quellcode:

function ShellExecuteGLE(hWnd: HWND; Operation, FileName, Parameters, Directory: PWideChar; ShowCmd: Integer): HINST; overload;
begin
  Result := ShellExecuteGLE(hWnd, Operation, FileName, Parameters, Directory, ShowCmd);
  if Result <= 32 then begin
    case Result of  // Übersetzung: DDE Error > Win32 Error Code
      0:                      Result := ERROR_OUTOFMEMORY;
      ERROR_BAD_FORMAT:       ;
      SE_ERR_ACCESSDENIED:    Result := ERROR_ACCESS_DENIED;
      SE_ERR_ASSOCINCOMPLETE: Result := {?}ERROR_ACCESS_DENIED;
      SE_ERR_DDEBUSY:         Result := {?}ERROR_BUSY;
      SE_ERR_DDEFAIL:         Result := ERROR_DDE_FAIL;
      SE_ERR_DDETIMEOUT:      Result := {?}ERROR_TIMEOUT;
      SE_ERR_DLLNOTFOUND:     Result := ERROR_DLL_NOT_FOUND;
      SE_ERR_FNF:             Result := ERROR_FILE_NOT_FOUND;
      SE_ERR_NOASSOC:         Result := ERROR_NO_ASSOCIATION;
      SE_ERR_OOM:             Result := {?}RPC_S_OUT_OF_RESOURCES;
      SE_ERR_PNF:             Result := ERROR_PATH_NOT_FOUND;
      SE_ERR_SHARE:           Result := ERROR_SHARING_VIOLATION;
    end;
    SetLastError(Result);
    Result := 0;  // INVALID_HANDLE_VALUE?
  end;
end;

[Der schöne Günther]

Guter Hinweis, mein Fehler