Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by HeikoAdams,
11. Aug 2010
Wie zum Bleistift?
Ist so gewollt, weil bei Opt-Out DEP ja auch nicht aktiviert werden kann :wink:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by HeikoAdams,
9. Aug 2010
So, ich habe meine Funktion mit Hilfe der JclSysInfo ein wenig überarbeitet:
function ActiveDEP: Cardinal;
const
OptIn: Byte = 2;
OptOut: Byte = 3;
PROCESS_DEP_ENABLE = 1;
var
Info: TOSVersionInfoEx;
SetProcessDEPPolicy: function(dwFlags: dword): Boolean; stdcall;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by HeikoAdams,
5. Aug 2010
AFAIK macht das bei neueren Version der Compiler. Kann man über den Process-Explorer von Sysinternals prüfen ;)
Jepp, hab da aber noch nicht zu gefunden.
Edit: Ich habe die Funktion ein wenig überarbeitet, so dass jetzt im Fehlerfall der Wert von GetLastError zurückgeliefert wird. Damit kann man dann auch mehr anfangen als mit True/False ;)
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by HeikoAdams,
5. Aug 2010
Da bei älteren Delphi-Versionen die Data Execution Prevention noch manuell aktiviert werden muss, kann man die nachfolgende Funktion dafür nutzen.
function ActiveDEP: Cardinal;
const
OptIn: Byte = 2;
PROCESS_DEP_ENABLE = 1;
var
Info: TOSVersionInfo;
SetProcessDEPPolicy: function (dwFlags: dword): Boolean; stdcall;
GetSystemDEPPolicy: function: Word; stdcall;