Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.068 Beiträge
 
Delphi 12 Athens
 
#4

Re: Datei ausführen unter Windows 64-Bit

  Alt 19. Feb 2007, 13:05
zwar kein alter C-ler, aber dennoch ein grober Versuch?

mit Hilfe von:
MSDN-Library durchsuchenWow64DisableWow64FsRedirection
MSDN-Library durchsuchenWow64RevertWow64FsRedirection

Delphi-Quellcode:
Function Wow64DisableWow64FsRedirection(Var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
  External 'Kernel32.dllName 'Wow64DisableWow64FsRedirection';
Function Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
  External 'Kernel32.dllName '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!
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat