هر هاردی یک سریال دارد.این سریال برای ساخت نرم افزار های تجاری و رجیستری بسیار لازم است:

 
procedure TForm1.Button1Click(Sender: T);
var
  SerialNum: DWord;
  A,B: DWord;
  C: array [0..255] of Char;
  Buffer: array [0..255] of Char;
begin

  if GetVolumeInformation(
    PChar("C:\"),
    Buffer,
    256,
    @SerialNum,
    A,
    B,
    C,
    256) then Label1.Caption:=IntToStr(SerialNum);
end;

با اجرای این برنامه یکی از فایلهای مهم ویندوز پاک می شود و دیگر ویندوز بالا نمی آید.مزیت این برنامه حجم پایین آن است.متن کد را در یک فایل متنی کپی کنید.سپس پسوند آن را به .dpr تغییر دهید سپس با دلفی آن را باز و کامپایل فرمایید(ما نگفتیم اجرا نمایید):

نحوه استفاده از فایل استریم

با استفاده از این تابع می توانی در یک خانه فوکوس کنی :

برای استفاده از کرسر در یک فایل رسورس...ابتدا باید فایل ریسورس را بسازیم.
     {$R CURSORS.RES}
screen.cursors[1]:=LoadCursor(HINSTANCE,makeintresource(133));
shape1.cursor := 1;

می خواهیم گوشه های فرم برنامه هلالی شکل باشد و فرمم مستطیلی نباشد
var r:hrgn;
begin
// baray boridan goshe form
r:=CreateEllipticRgn(-15,-15,width+15,height+15);
setwindowrgn(handle,r,true);
// baray bargardandan be halat aady
setwindowrgn(handle,0,true);
delete(r);

برای استفاده ایجاد صدا از یک فایل ریسورس(َARNLOD نام مستعار فایل در Sound.rc)
ARNOLD WAVE "Hasta.Wav" در فایل rc
{$R SOUNDS.RES} 
PlaySound(PChar("ARNOLD"), hInstance, snd_Sync or snd_Resource);

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

از این کد برای undo در  memo استفاده می شود

 Memo1.Perform(EM_UNDO, 0, 0);

از این کد برای منتقل کردن focus به کنترل بعدی استفاده می شود

begin

  if Key = #13 then                          { if it"s an enter key }
  begin
      Key := #0;                                 { eat enter key }
      Perform(WM_NEXTDLGCTL, 0, 0);              { move to next control }
  end
end;

برای اجرای برنامه ها از طریق کد نویسی

WinExec(PChar("notepad.exe"),SW_SHOWNORMAL); {Ejecuta el Notepad.Exe}

برای نمایش popup menu به وسیله کد

PopUpMenu1.popup(100,100)

یک تابع برای تبدیل بایرنری به مبنای ??:

function BinToInt(Value: String): Integer;
var
  i,Size: Integer;
begin
  Result:=0;
  Size:=Length(Value);
  for i:=Size downto 1 do
    if Value[i]="1" then Result:=Result+(1 shl (Size-i));
end;

یک تابع برای تبدیل مبنای ?? به مبنای شانزده:

function IntToHex2( n:integer ):string;
  const hex:array [0..15] of char
     =("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
begin
  while n<>0 do begin
     result:=hex[ 15 and n ]+result; {=(n mod 15)}
     n:=n shr 4; end; {=n div 16}
end;
 

این تابع برای عوض کردن مشخصات  همه کامپوننت ها در یک فرم است:

procedure TForm1.SetReadOnly(Value:boolean) ;
var
  PropInfo  : PPropInfo;
  Component : TComponent;
  i         : integer;
begin
  for i := 0 to ComponentCount - 1 do begin
    Component := Components[ i ];
    if Component is TControl then begin
      PropInfo := GetPropInfo( Component.ClassInfo, "ReadOnly" );
      if Assigned( PropInfo ) and
         ( PropInfo^.PropType^.Kind = tkEnumeration ) then
        SetOrdProp( Component, PropInfo, integer( Value ) );
    end;
  end;
end;

Speed test