Windows 7 64Bit Redirection

[amigage]

So, ich habe einmal das Log vom Process Monitor angehangen. Ich hoffe, ihr könnt erkennen, wo das Problem ist. Das 64 Bit System ist übrigens in Englisch, was aber nicht das Problem sein sollte, oder?

@Bummi:
Dasselbe passiert auch, wenn ich das Programm als Admin ausführe.

Ich wünsche Euch allen einen schönen Sonntag.

[Dezipaitor]

Hast du mal meinen Code ausprobiert oder machst du eine neue EXE zum testen, weil die alte Exe funktioniert bei mir nicht.

[Assarbad]

Zitat von amigage:

So, ich habe einmal das Log vom Process Monitor angehangen. Ich hoffe, ihr könnt erkennen, wo das Problem ist.

Ich sehe ehrlich gesagt kein Problem. Laut dem Report sieht es so aus als ob osk.exe (und zwar die x64-Variante, denn es gibt ja zwei auf dem Win7 x64) erfolgreich gestartet wird und dann auch gleich wieder beendet wird. Wenn du also einen Fehler bekommst, sollte der innerhalb von osk.exe passieren ...

Zitat von amigage:

Das 64 Bit System ist übrigens in Englisch, was aber nicht das Problem sein sollte, oder?

Nein.

Zitat von amigage:

Ich wünsche Euch allen einen schönen Sonntag.

Dir auch.

[Dezipaitor]

Wie gesagt, sein Code funktioniert bei mir nicht, meiner jedoch schon.
Vielleicht mal testen?
Solange das nicht geschehen ist, werde ich auch nicht mehr weiter raten.

[Assarbad]

Zitat von Dezipaitor:

Wie gesagt, sein Code funktioniert bei mir nicht, meiner jedoch schon.

Ich hatte alle ShowMessage-Aufrufe auskommentiert. Dann ging auch sein Code.

[amigage]

@Dezipaitor:
Könntest Du mir mal Deine exe hier anbieten? Ich arbeitet derzeit ohne die Jedi-Komponenten und würde sicher gehen wollen, dass diese funktionieren, bevor ich sie mir installiere.

Ich habe bei den Jedi Komponenten sowieso keinen Überblick, welche ich da wann benötige. Aber das ist ein anderes Thema

[Dezipaitor]

Die JEDI API muss nicht installiert werden. Einfach die Pfade inkludieren.

Und hier gibt es eine Übersicht:
http://wiki.delphi-jedi.org/index.php?title=Main_Page

[gore]

64Bit Redirection? Wieso immer gleich mit Kanonen auf Spatzen schießen? Die erste Antwort von jfheins ist Microsoft konform.

Zitat:

32-bit applications can access the native system directory by substituting %windir%\Sysnative for %windir%\System32. WOW64 recognizes Sysnative as a special alias used to indicate that the file system should not redirect the access. This mechanism is flexible and easy to use, therefore, it is the recommended mechanism to bypass file system redirection. Note that 64-bit applications cannot use the Sysnative alias as it is a virtual directory not a real one.

Solange man mit Delphi keine 64bit Programme erzeugen kann, reicht folgendes:
  if IsProcess32OnWin64(GetCurrentProcess) then Exe:='%WinDir%\Sysnative\osk.exe' else Exe:='%WinDir%\system32\osk.exe';

IsProcess32OnWin64 ist gleichbedeutend mit Deiner Is64BitViaRegistry (und ist auch Microsoft konform).

Delphi-Quellcode:

function IsProcess32OnWin64(ProcessHandle:THandle):boolean;
type
  TIsWow64Process = function(Handle: THandle; var Res: BOOL): BOOL; stdcall;  // Type of IsWow64Process API fn
var
  IsWow64Result: BOOL;      // Result from IsWow64Process
  IsWow64Process: TIsWow64Process;  // IsWow64Process fn reference
begin
  result:=false;
  IsWow64Process := GetProcAddress( GetModuleHandle('kernel32.dll'), 'IsWow64Process' );
  if Assigned(IsWow64Process) then begin
    if IsWow64Process(ProcessHandle,IsWow64Result) AND IsWow64Result then result:=true;   
  end;                                                                                    // google: Running 32-bit Applications (Windows)
end;                                                                                      

function IsProcess64bit(ProcessHandle:THandle):boolean;
begin
  result:= IsWin64bit AND not IsProcess32OnWin64(ProcessHandle);
end;