Gönderen Konu: Windows un 64 Bit Olduğunu Algılama (Okunma sayısı 713 defa)

sabanakman · « : 15 Aralık 2009 02:10:56 »

Windows un 64 Bit olduğunu algılayan kod.

Kod: (Unknown Language)

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('Geçersiz fonksiyon adresi!...');
    Result := IsWow64Result;
  end else Result := False;
end;

Örnek..:

Kod: (Unknown Language)

if IsWOW64 then Label1.Caption:='64 bit Windows x64' else Label1.Caption:='32 bit Windows x86';

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Windows un 64 Bit Olduğunu Algılama (Okunma sayısı 713 defa)

sabanakman

Windows un 64 Bit Olduğunu Algılama