desktop上的字符.

[Gue]

请问各位高手怎么在桌面上输出字符?如果要用API可否告知是那个函数,谢谢了.

[TechnoFantasy]

Dim ldc As Long
Dim astr As String
Dim hWindow As Long

hWindow = FindWindow("Progman", "Program Manager")
hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", "")
hWindow = FindWindowEx(hWindow, 0, "SysListView32", "")
ldc = GetDC(hWindow)
astr = "this is a samples"
Debug.Print hWindow, ldc
Call TextOut(ldc, 10, 20, astr, Len(astr))

相应的API函数定义VB的API Loader中有
www.applevb.com

[Gue]

如果用getdesktopwindow得到桌面的句柄，我把写成下面的这样对吗？
dim ldc as long
dim astr as string

ldc=getdesktopwindow()
astr="this is a samples"
call textout(ldc,10,20,astr,len(astr)

[TechnoFantasy]

不对，GetDesktopWindow函数获得的的确是桌面局柄，但是问题是占据桌面
显示图标的是一个ListView类的控件。所以你需要获得这个控件的窗口局柄
www.applevb.com

[Gue]

不知道可不可以定位输出，如果可以应该怎么做呢？再次谢谢了。

[TechnoFantasy]

就是textOut的第2、3个参数，分别代表x、y坐标

[prefix]

不用去Find那么多window啦，用GetDesktopWindow()。

[vbdabster]

getdesktopwindow是得到那个窗口的，当前的？