AW: Verrücktes Problem mit Delphi7 und ShellExecute
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:
Interessant nur, dass das Delphi6 Kompilat keinen Alarm auslöst. |
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Interessant auch, dass es so viele verschiedene Viren sind. Da sieht man mal, wie krank das System teilweise ist.
|
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Es wird wohl immer das selbe Bit-Muster sein, nur jeder Hersteller gibt ihr einen anderen Namen.
|
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Zitat:
|
AW: Verrücktes Problem mit Delphi7 und ShellExecute
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? |
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Zitat:
Außerdem ist es immer noch besser, wenn der falsche Alarm schon beim Entwickeln kommt, als erst beim Kunden... |
AW: Verrücktes Problem mit Delphi7 und ShellExecute
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.
|
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Zitat:
|
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Zitat:
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; |
AW: Verrücktes Problem mit Delphi7 und ShellExecute
Guter Hinweis, mein Fehler :warn:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz