您的位置：程序门 -> delphi -> windows sdk/api

求一段向桌面屏幕上打印一段文字的delphi例码

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

求一段向桌面屏幕上打印一段文字的delphi例码[已结贴,结贴人:dbaseiii]

发表于：2007-01-09 00:46:38 楼主

如题。谢谢

发表于：2007-01-09 07:58:041楼得分:10

var
hscreendc: hdc;
myoutput: pchar;
begin
hscreendc := getdc（0);
myoutput := 'abcd ';
textout（hscreendc, 0, 0, myoutput, lstrlen（myoutput));
releasedc（0, hscreendc);
end;

发表于：2007-01-09 08:02:042楼得分:10

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;

下一篇：怎样才能让delphi开发的浏览器支持ipv6？
上一篇：急：求助：在dephi中如何将该应用程序与本机硬件进行绑定

其他资讯