bunu nasıl ekleyecez peki kusura bakma ben delphi yi yeni oğreniyorum da umarım bu konuda bana yardımcı olursun yani form actıktan osnra bunları nereye ekleyecem sorduğum sorular cok komik gelebilir size cunku hayatimda ilk kez delphi programı pc ye kurdum ve actım şimdi bu kodların nereye ekleneceğini bilmiyorum...

Masaustunde sol ust koseye 'deneme' yazar. Kod: procedure DrawTextOnDesktop ; var Handle: HWND; Dc: HDC; ACanvas: TCanvas; begin Handle := GetDesktopWindow; Dc := GetWindowDC ; ACanvas := TCanvas. Create; try ACanvas. Handle := DC; BeginPath ; ACanvas. Font. Color := clRed; ACanvas. Font. Name := 'Tahoma'; ACanvas. Font. Size := 30; SetBkMode ; EndPath ; ACanvas. TextOut(0, 0, TextToDraw) ; finally ReleaseDC ; ACanvas. Free; end; end; procedure TForm1. Button1Click ; begin DrawTextOnDesktop ; end;