Discussion :

[Silerys]

Bonjour Voila j'ai un souci avec mon DELPHI.

J'ai faits un petit programme qui me modifie l'écran de verrouillage de l'ordinateur. (Chose inutile je suis d'accord quoi que )

Le problème est que pour les ordinateurs 64bits le chemin du dossier (que Windows prend pour définir le fond d'écran) est dans système 32.

Hors dès que j'essaie d'accéder dans ce dossier je suis redirigé sur SysWOW64
Ce qui est très très embêtant car celui-ci ne comprend ni le bon dossier ni la bonne image

Auriez-vous une solution pour forcer le passage dans Systeme 32.

j'ai essayer le Programme avec et sans UAC d'activer sur l'Ordinateur et cela reviens au même.

Je vous remercie par avance pour vos future réponse

[Andnotor]

Tu peux essayer avec Wow64DisableWow64FsRedirection.

[Charly910]

Bonjour,

trouvé sur le site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Uses ShellAPI, Windows;
...
//=======================================================
Function ChangeFSRedirection(bDisable: Boolean): Boolean;
//=======================================================
 
Type TWow64DisableWow64FsRedirection = Function(Var Wow64FsEnableRedirection: LongBool): LongBool; StdCall; 
      TWow64EnableWow64FsRedirection  = Function(var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
 
  Var
    hHandle: THandle;
    Wow64DisableWow64FsRedirection: TWow64DisableWow64FsRedirection;
    Wow64EnableWow64FsRedirection:  TWow64EnableWow64FsRedirection;
    Wow64FsEnableRedirection:       LongBool;
 
begin
 
Result := True;
 
try
    hHandle := GetModuleHandle('kernel32.dll');
    @Wow64EnableWow64FsRedirection  := GetProcAddress(hHandle, 'Wow64EnableWow64FsRedirection');
    @Wow64DisableWow64FsRedirection := GetProcAddress(hHandle, 'Wow64DisableWow64FsRedirection');
 
    if bDisAble then begin
     If ((hHandle <> 0) and (@Wow64EnableWow64FsRedirection <> nil) and (@Wow64DisableWow64FsRedirection <> nil)) Then
      Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection);
    end;
 
    if not bDisAble then
    If ((hHandle <> 0) and (@Wow64EnableWow64FsRedirection <> nil) and (@Wow64DisableWow64FsRedirection <> nil)) Then
      Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection);
 
Except Result := False;
end;
 
end;

et une autre pour savoir si on est sur un système 64 bits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//------------------------------------------------------------------------------
function IsWOW64: Boolean;
type
  TIsWow64Process = function(
    Handle: THandle;
    var Res: BOOL
  ): BOOL; stdcall;
var
  IsWow64Result: BOOL;
  IsWow64Process: TIsWow64Process;
begin
  IsWow64Process := GetProcAddress(
    GetModuleHandle('kernel32'), 'IsWow64Process'
  );
  if Assigned(IsWow64Process) then
  begin
    if not IsWow64Process(GetCurrentProcess, IsWow64Result) then
      raise Exception.Create('Bad process handle');
    Result := IsWow64Result;
  end
  else
    Result := False;
end;

sur un système 64 bits, avant d'accéder à un répertoire système 32 bits, il faut utiliser ChangeFSRedirection(True) puis après ChangeFSRedirection(False).

Je n'ai pas testé ...

A+

Charly

[Silerys]

Merci a tous les 2

j'ai pris ton code Charly et sa fonctionne a merveille


Je connaissais pour connaitre la version vus que je devais faire aussi une redirection du Registre
Mais j'avais pas pensez du tous qu'il fallait que je fasse une redirection aussi au niveau dossier et comme j'ai tester Réellement la modification apporter par mon soft uniquement sur version 32bits j’avoue que je n'avais jamais eu l'erreur .


En tous cas un grand merci a vous 2

[cincap]

Bonsoir à toutes et à tous,

@ Charly910, il est toujours souhaitable de communiquer le lien qui parle de cette discussion dans ce même forum, car il y avait d'autres éléments qui pourraient intéresser Silerys.

@+,

Cincap