بيا تا مونس هم يار هم غمخوار هم باشيم/ انيس جان غم فرسوده بيمار هم باشيم
شب آيد شمع هم گرديم و بهر يكدگر سوزيم/ شود چون روز دست و پاي هم در كار هم باشيم
دواي هم شفاي هم، براي هم فداي هم/ دل هم جان هم، جانان هم دلدار هم باشيم
به جمعيت پناه آريم از باد پريشاني/ اگر غفلت كند آهنگ ما، هشيار هم باشيم
براي ديدهباني خواب را بر خويشتن بنديم/ ز بهر پاسباني ديده بيدار هم باشيم
جمال يكدگر گرديم و عيب يكدگر پوشيم/ قبا و جبه و پيراهن و دستار هم باشيم
غم هم شادي هم دين هم دنياي هم گرديم/ بلاي يكدگر را چاره و ناچار هم باشيم
بلاگردان هم گرديده گرد يكدگر گرديم/ شده قربان هم از جان و نيتدار هم باشيم
يكي گرديم در گفتار و در كردار و در رفتار/ زبان و دست و پا يك كرده خدمتكار هم باشيم
نمي بينم به جز تو همدمي اي فيض در عالم/ بيا دمساز هم گنجينه اسرار هم باشيم
ملا محسن فیض کاشانی
برای نوشتن یک متن روی تصویر پیش زمینه ویندوز Desktop wallpaper می توان از کد زیر استفاده کرد :
procedure DrawTextOnDesktop(TextToDraw: string) ;
var
Handle: HWND;
Dc: HDC;
ACanvas: TCanvas;
begin
Handle := GetDesktopWindow;
Dc := GetWindowDC(Handle) ;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := DC;
BeginPath(ACanvas.Handle) ;
ACanvas.Font.Color := clRed;
ACanvas.Font.Name := 'Tahoma';
ACanvas.Font.Size := 30;
SetBkMode(ACanvas.Handle, TRANSPARENT) ;
EndPath(ACanvas.Handle) ;
ACanvas.TextOut(0, 0, TextToDraw) ;
finally
ReleaseDC(Handle, ACanvas.Handle) ;
ACanvas.Free;
end;
end;
حال پروسیجر بالا را به صورت ذیل فراخوانی کنید :
DrawTextOnDesktop('salam'):
موفق باشید(ترجمه شده از سایت delphi.about)
