Arsip: frekuensi komputer
more 16 years ago
madi
uses
Registry;
{...}
// this code will get the cpu identifier from the windows registry
function CPUname: string;
var
Reg: TRegistry;
begin
CPUname := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then
CPUname := Reg.ReadString('Identifier');
finally
Reg.Free;
end;
end;
// this code will get the cpu speed from the windows registry
function GetCpuSpeed: string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('Hardware\Description\System\CentralProcessor\0', False) then
begin
Result := IntToStr(Reg.ReadInteger('~MHz')) + ' MHz';
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
//contoh penggunaan...
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := CPUName + GetCPUSpeed;
end;
Semoga bisa menjadi salah satu solusi....:D
more 16 years ago
pradhana
Mungkin ini sedikit berbeda :)
function GetCPUSpeed: Double;
const
DelayTime = 500;
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
dw 310Fh
mov TimerLo, eax
mov TimerHi, edx
end;
Sleep(DelayTime);
asm
dw 310Fh
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000 * DelayTime);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Format('CPU speed: %f MHz', [GetCPUSpeed]));
end;
more 16 years ago
luckynvic
yang ini paling beda lagi pake
procedure Button1Click(Sender:TObject);
var
c:int64;
begin
QueryPerformanceFrequency(c);
label1.caption:=inttostr(c);
end;
lebih lengkap nya ada di cari di http://pascal-id.org/dpr/Article150.pasmore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- ada yg tau cara meng update isi treeview?
by micrens in Tip n Trik Pemrograman more 16 years ago - Membuat antrian aplikasi mengirim sms
by dhila in Tip n Trik Pemrograman more 15 years ago - event afterprint
by yuan_carlos in Reporting more 15 years ago - Refresh semua aplikasi apabila ada perubahan di database
by irfan_nh in Network, Files, I/O & System more 14 years ago - Total dengan fast report
by lagisedih in Reporting more 15 years ago - cara kirim gambar screen shot di forum ini
by onsir in MySQL more 16 years ago - Bagaimana cara bikin installer bersamaan dengan db firebird
by wati in FireBird more 16 years ago - tanya untuk aplikasi base data
by Handoyo in FireBird more 17 years ago - ambil data paling akhir d dbgrid
by rizu in Tip n Trik Pemrograman more 15 years ago - Turbo Delphi 2006 dengan Intraweb
by ricksha in Web Programming more 15 years ago