Kod: Tümünü seç
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange
Kod: Tümünü seç
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange
Kod: Tümünü seç
if TOSVersion.Architecture = TOSVersion.TArchitecture.arIntelX86 then
begin
// 32bit işletim sistemi
end
else
if TOSVersion.Architecture = TOSVersion.TArchitecture.arIntelX64 then
begin
// 64bit işletim sistemi
end;
ertank yazdı: ↑25 Ağu 2020 01:44 Merhaba,
Öncelikle cevabınız için çok teşekkür ederim. Haklısınız program 32 bit ile derleniyor. Bu sebeple aşağıda belirmiş olduğunuz yanıt benim için son derece yeterli. Bazen insanın aklı gerçekten duruyormuş, bunu daha iyi anladım.
Tekrar teşekkür ediyorum.Kod: Tümünü seç
- 32Bit uygulama 64Bit işletim sistemi: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Exchange - 64Bit uygulama 64Bit işletim sistemi: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange
işletim sistemi bit değerini öğrenmek için aşağıdaki yapıyı kullanıyorum.Kod: Tümünü seç
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!...'); Result := IsWow64Result; end else Result := False; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin if IsWOW64 then Application.MessageBox('Windows Sistem Türü: 64 Bit', 'Sistem Türü', MB_IconInformation+MB_OK) else Application.MessageBox('Windows Sistem Türü: 32 Bit', 'Sistem Türü', MB_IconInformation+MB_OK) end;