procedure DrawTextOnDesktop(TextToDraw: string) ; var Handle: HWND; Dc: HDC; ACanvas: TCanvas; begin Handle := GetDesktopWindow; Dc :=...
Birden fazka kullanıcı eklenir ise virgül ile ayırınız.