zwar kein alter C-ler, aber dennoch ein grober Versuch?
mit Hilfe von:
Wow64DisableWow64FsRedirection
Wow64RevertWow64FsRedirection
Delphi-Quellcode:
Function Wow64DisableWow64FsRedirection(Var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
External 'Kernel32.dll' Name 'Wow64DisableWow64FsRedirection';
Function Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
External 'Kernel32.dll' Name 'Wow64EnableWow64FsRedirection';
Var Wow64FsEnableRedirection: LongBool;
Begin
If Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection) Then Begin
If ShellExecute(0, nil, PChar('c:\windows\system32\notepad.exe'), nil, nil, 0) = 0 Then
Error...
Wow64RevertWow64FsRedirection(Wow64FsEnableRedirection);
End Else Error...
End;
Die (aufgehobene) Umleitung sollte doch wohl auch auf ShellExecute eine Auswirkung haben.
[add] ungetestet!