求一段向桌面屏幕上打印一段文字的Delphi例码,该怎么处理

求一段向桌面屏幕上打印一段文字的Delphi例码
如题。谢谢

------解决方案--------------------
var
hScreenDC: hdc;
MyOutput: PChar;
begin
hScreenDC := GetDC(0);
MyOutPut := 'abcd ';
TextOut(hScreenDC, 0, 0, MyOutPut, lstrlen(MyOutPut));
ReleaseDC(0, hScreenDC);
end;

------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
DesktopDC : HDC;
sTemp : String;
begin
DesktopDC := GetWindowDC(0);
sTemp := 'Hello, world! ';
TextOut(DesktopDC, 100, 100, PChar(sTemp), Length(sTemp));
end;