%programfiles% unter Windows 7 x64

[Sereby]

hi

ich versuche gerade die ganze zeit vergeblich auf das "C:\Program files" verzeichnis zuzugreifen, vergeblich :(
%programfiles% in einer CMD ergebit das gewünschte ergebnis. wenn ich es jedoch in Delphi versuche scheitert es und ich weiss nicht warum

habe ein Testprojekt angehängt.
- Delphi 2009 U3
- W7 RTM x64

[Bernhard Geyer]

Zitat:

Zitat von Sereby

- W7 RTM x64

Darum!

Du bekommt bei einem 32-Bit Prozess "C:\Program Files (x86)" und beim Aufruf von einem 64-Bit Prozess "C:\Program Files".

[Sereby]

wenn du in mein project gucken würdest hättest du auch bemerkt, dass ich es z.B. mit Wow64DisableWow64FsRedirection versucht habe wo diese umleitung deaktiviert werden sollte sowie mit SHGetSpecialFolderPath bei der das absolut keine rolle spielen sollte!

[markus5766h]

Hallo, bei mir funktionierts :
Win 7 Enterprise Build 7600 64bit

[Sereby]

also bei mir zeigen alle 4 pfade in der Messagebox den pfad zu den 32bit programmen an..
ich denke auch nicht dass es an der windows version oder ähnlichem liegt! muss unter "enterprise" genauso sein wie unter Ultimate

[Luckie]

Zitat:

Zitat von Sereby

wenn du in mein project gucken würdest hättest du auch bemerkt, dass ich es z.B. mit Wow64DisableWow64FsRedirection versucht habe wo diese umleitung deaktiviert werden sollte sowie mit SHGetSpecialFolderPath bei der das absolut keine rolle spielen sollte!

Funktioniert das denn? Was gibt GetLastError zurück?

[Sereby]

siehe anhang

edit: deine signatur is gut.. entspricht leider auch der wahrheit :-/

[Luckie]

Ich meine nicht die Programmausgabe, sondern den Rückgabewert von Wow64DisableWow64FsRedirection.

[Sereby]

siehe bild..
die erste zeile ist ChangeFSRedirection(True); und die letzte ist ChangeFSRedirection(False);

Also Disable ist Returncode 0 und Enable 1008

edit: da der return-code 0 ist scheint die funktion zu scheitern.. aber warum?

[Luckie]

Ach so. das sind die Rückgabewerte.

Zitat:

If the function succeeds, the return value is a nonzero value.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Wenn der Rückgabewert 0 ist, schlägt der Aufruf fehl.

mach mal:

Delphi-Quellcode:

if not Wow64DisableWow64FsRedirection(...) then
  SyserrorMessage(GetLastError);

dann solltest du den Grund wissen.