اكتب اسمك على سطح المكتب

وجدت هدا الكود الجميل

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHand: HWND;
  MyDc: HDC;
  MyCanvas: TCanvas;
  TransText: string;
begin
  TransText:='الفريق العربي للبرمجة';
  MyHand := GetDesktopWindow;
  MyDc := GetWindowDC(MyHand);
  MyCanvas := TCanvas.Create;
  MyCanvas.Handle := MyDC;
  BeginPath(MyCanvas.Handle);
  MyCanvas.Font.Color := clwhite;
  MyCanvas.Font.Name := 'Arial';
  MyCanvas.Font.Size := 80;
  SetBkMode(MyCanvas.Handle,TRANSPARENT);
  EndPath(MyCanvas.Handle);
  MyCanvas.TextOut(100,100,TransText);




end;

وشكرا

(*)