¾È³çÇϼ¼¿ä. ¹«´ë»Ì´Ï´Ù.
°£¸¸¿¡ ±Û ¿Ã·Á º¸³×¿ä. °Ë»öÇغôµ¥ ¾ø¾î¼, ¿Ã·Áº¾´Ï´Ù.
¿äÁò 64bit ¿î¿µÃ¼Á¦ À©µµ¿ìµµ °í·ÁÇÏ°í °³¹ßÀ» ÇؾßÇؼ¸®..
ÆÛ¿Ô½À´Ï´Ù. (Ãâó´Â ±î¸Ô¾ú½À´Ï´Ù -_-)
function IsWindows64: Boolean;
type
TIsWow64Process = function( // Type of IsWow64Process API fn
Handle: Windows.THandle; var Res: Windows.BOOL
): Windows.BOOL; stdcall;
var
IsWow64Result: Windows.BOOL; // Result from IsWow64Process
IsWow64Process: TIsWow64Process; // IsWow64Process fn reference
begin
// Try to load required function from kernel32
IsWow64Process := Windows.GetProcAddress(
Windows.GetModuleHandle('kernel32'), 'IsWow64Process'
);
if Assigned(IsWow64Process) then
begin
// Function is implemented: call it
if not IsWow64Process(
Windows.GetCurrentProcess, IsWow64Result
) then
raise SysUtils.Exception.Create('IsWindows64: bad process handle');
// Return result of function
Result := IsWow64Result;
end
else
// Function not implemented: can't be running on Wow64
Result := False;
end;