بایگانی دسته: Delphi

Get Disk Serial Number

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

ارسال شده در Delphi | یک دیدگاه
Vote This Post DownVote This Post Up (+3 votes)
Loading...



Cpu Speed

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 | 5 دیدگاه
Vote This Post DownVote This Post Up (+2 votes)
Loading...



باز کردن و بستن تمامی dataset های موجود در Form

تابع باز کردن تمامی Dataset ها { Open datasets: OpenDataSet(MyForm); } procedure OpenDataSet(FormName: TForm); var I: Integer; begin for I := FormName.ComponentCount – 1 downto 0 do if (FormName.Components[I] is TADOTable) then begin (FormName.Components[I] as TADOTable).Open; end; end; تابع بستن … ادامه‌ی خواندن

ارسال شده در Delphi | 49 دیدگاه
Vote This Post DownVote This Post Up (+1 votes)
Loading...



بررسی آدرس ایمیل – دلفی

FUNCTION IsValidEmail(CONST Value: String): boolean;   FUNCTION CheckAllowed(CONST s: String): boolean;   VAR i: Integer;   BEGIN   Result:= False;   FOR i:= 1 TO Length(s) DO // illegal char in s -> no valid address   IF NOT (s[i] … ادامه‌ی خواندن

ارسال شده در Delphi | 39 دیدگاه
Vote This Post DownVote This Post Up (No Ratings Yet)
Loading...



ایجاد بانک اطلاعاتی اکسس با کد نویسی – دلفی

 procedure CreateMSAccessDB(filename : String); var   DBEngine, Workspace: Variant; const   dbLangGeneral = ‘;LANGID=0x0409;CP=1252;COUNTRY=0’;   dbVersion30 = 32; begin   DBEngine := CreateOleObject(‘DAO.DBEngine’);    { DBEngine := CreateOleObject(‘DAO.DBEngine.35’); For DAO 3.5 }   Workspace := DBEngine.Workspaces[0];   try     Workspace.CreateDatabase(filename, … ادامه‌ی خواندن

ارسال شده در Delphi | 89 دیدگاه
Vote This Post DownVote This Post Up (No Ratings Yet)
Loading...