[Amin_Mansouri]

نوشتن یک لیبل بصورت مورب

کد:

procedure TForm1.Button1Click(Sender: TObject);

begin

   AngleTextOut(Form1.Canvas,12,10,65,'Advanced Delphi Technicals !!');

end;



procedure AngleTextOut(ACanvas: TCanvas;Angle,X,Y: Integer;Str: string);

var

   LogRec : TLogFont;

   OldFontHandle,NewFontHandle :HFONT;

begin

   GetObject(ACanvas.Font.Handle,SizeOf(LogRec),Addr(LogRec));

   LogRec.lfEscapement := Angle * 10;

   NewFontHandle := CreateFontIndirect(LogRec);

   OldFontHandle := SelectObject(ACanvas.Handle,NewFontHandle);

   ACanvas.TextOut(X,Y,str);

   NewFontHandle := SelectObject(ACanvas.Handle,OldFontHandle);

   DeleteObject(NewFontHandle);

end;

نوشتن کپشن یک دکمه در چند سطر

کد:

procedure TForm1.FormCreate(Sender: TObject);

begin

SetWindowLong(Button1.Handle,GWL_STYLE,GetWindowLong(Button1.Handle,GWL_STYLE) OR BS_MULTILINE);

end;

مخفی کردن و نمایش مجدد ساعت ویندوز

کد:

procedure TForm1.Button1Click(Sender: TObject);

var

hn : HWND;

begin

hn:= FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,

        'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);

if hn <> 0 then

  ShowWindow(hn,SW_HIDE);

end;

برای نمایش مجدد همان کدهای بالا تکرار کرده و لی بجای سطر آخر کد زیر را قرار دهید:

کد:

ShowWindow(hn,SW_SHOW);

نمایش تمامی اطلاعات مربوط به حافظه اصلی کامپیوتر (RAM)



یک Memo و یک دکمه روی فرم قرار داده و کد زیر را برای دکمه بنویسید:

کد:

procedure TForm1.Button1Click(Sender: TObject);

var

MemorysStatus: TMemoryStatus;

begin

  Memo1.Lines.Clear;

  MemorysStatus.dwLength := SizeOf(MemorysStatus);

  GlobalMemoryStatus(MemorysStatus);

  with MemorysStatus do

  begin

    Memo1.Lines.Add(IntToStr(dwLength) + ' Size of Memory Status record');

    Memo1.Lines.Add(IntToStr(dwMemoryLoad) + '%  Memory in use');

    Memo1.Lines.Add(IntToStr(dwTotalPhys) + ' Total Physical Memory in Bytes');

    Memo1.Lines.Add(IntToStr(dwAvailPhys) + ' Available Physical Memory in Bytes');

    Memo1.Lines.Add(IntToStr(dwTotalPageFile) + ' Total Bytes of Paging File');

    Memo1.Lines.Add(IntToStr(dwAvailPageFile) + ' Available Bytes in Paging File');

    Memo1.Lines.Add(IntToStr(dwTotalVirtual) + ' User Bytes of Address Space');

    Memo1.Lines.Add(IntToStr(dwAvailVirtual) + ' Available User Bytes of Address Space');

  end;

end;

غیرفعال کردن دکمه خروج فرم (Exit)

کد:

procedure TForm1.FormCreate(Sender: TObject);

var

   hwndHandle : THANDLE;

   hMenuHandle : HMENU;

   iPos : Integer;

begin

   hwndHandle := FindWindow(nil,PChar(Caption));

   if (hwndHandle <> 0) then

   begin

      hMenuHandle := GetSystemMenu(hwndHandle,false);

      if (hMenuHandle <> 0 ) then

      begin

        DeleteMenu(hMenuHandle,SC_CLOSE,MF_BYCOMMAND);

        iPos := GetMenuItemCount(hMenuHandle);

        Dec(iPos);

        if iPos > -1 then

          DeleteMenu(hwndHandle,iPos,MF_BYPOSITION);

      end;

   end;

End;