بایگانی ماهیانه: نوامبر 2012

Get Disk Serial Number

ارسال شده در 09/11/2012 by Amir Reza Jaberi

function GetDiskSerialNumber(Disk: char): string; var VolumeSerialNumber, MaximumComponentLength, FileSystemFlags: DWORD; SerialNumber: string; begin GetVolumeInformation(PChar(Disk + ‘:\’), nil, ۰, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, ۰); SerialNumber := Format(‘%.4X-%.4X’, [HiWord(VolumeSerialNumber), LoWord(VolumeSerialNumber)]); Result := SerialNumber; end;

منتشرشده در Delphi | ۱ دیدگاه

Cpu Speed

ارسال شده در 09/11/2012 by Amir Reza Jaberi

UNIT UCPUSPD; INTERFACE USES WINDOWS, MESSAGES, SYSUTILS, CLASSES, GRAPHICS, CONTROLS, FORMS, DIALOGS, COMCTRLS, STDCTRLS, BUTTONS; TYPE TFORMCPUSPEED = CLASS(TFORM) BITBTNSTART: TBITBTN; BITBTNSTOP: TBITBTN; LABELCPUSPEED: TLABEL; PROCEDURE BITBTNSTARTCLICK(SENDER: TOBJECT); PROCEDURE BITBTNSTOPCLICK(SENDER: TOBJECT); PRIVATE { PRIVATE DECLARATIONS } STOP: BOOLEAN; PUBLIC { … ادامه‌ی خواندن→

منتشرشده در Delphi | ۵ دیدگاه