5 replies to this topic

[escafandra]

Para conocer si una app,que se ejecuta es de 32bits en un Windows 64, propongo esta función:

delphi

function IsWow64(PID: DWORD): BOOL;
var
  hProc: THANDLE;
begin
  Result:= false;
  hProc:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
  IsWow64Process(hProc, Result);
  CloseHandle(hProc);
end;

La API IsWow64Process se importa así:

delphi

function IsWow64Process(hProc: THANDLE; var bIsWow64: BOOL): BOOL; stdcall; external 'Kernel32.dll';

Saludos.

[Dante]

si pero se puede invocar a esa api desde una aplicacon en 32?

[escafandra]

si pero se puede invocar a esa api desde una aplicacon en 32?

 

Si.

 

Saludos.

[escafandra]

Para completar el truco, este es el código en C/C++

cpp

BOOL IsWow64(DWORD PID)
{
  typedef BOOL (WINAPI *PISWOW64PROCESS)(HANDLE, PBOOL);
  BOOL bIsWow64 = false;
  PISWOW64PROCESS _IsWow64Process = (PISWOW64PROCESS)GetProcAddress(GetModuleHandle("Kernel32.dll"), "IsWow64Process");
  if(_IsWow64Process){
    HANDLE hProc = OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
    _IsWow64Process(hProc, &bIsWow64);
    CloseHandle(hProc);
  }
  return bIsWow64;
}

Saludos.

[Dante]

esto fue como lo implemente y siempre me debuelve 0 para todos los procesos

delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
      function IsWow64Process(hProc: THANDLE; var bIsWow64: BOOL): BOOL; stdcall; external 'Kernel32.dll';
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
    function IsWow64(PID: DWORD): BOOL;
    var
      hProc: THANDLE;
    begin
      Result:= false;
      hProc:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
      IsWow64Process(hProc, Result);
      CloseHandle(hProc);
    end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
 
 MessageBox(0,pchar(BoolToStr(IsWow64(dword(Edit1.Text)))),'',0);
end;
 
end.

ya encontre q tena mal, era  la combercion

 MessageBox(0,pchar(BoolToStr(IsWow64(StrToInt(Edit1.text)))),'',0);

Edited by Dante, 27 December 2016 - 01:19 PM.

[sir.dev.a.lot]

+1,

 

Otra mas para la Coleccion

 

Es decir, una version mas corta!....

 

Saludos!