请问怎么通过API函数获取正在运行的程序的标题栏的内容，包括图标和文字？

[fishflywithbird]

我想请问一下高手：
1、请问怎么通过API函数获取正在运行的程序的标题栏的内容，包括图标(icon)和文字？
2、能够修改这些文字还有图标（icon）

[nanshenvip]

得到当前运行的程序：
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Sub xiao()
Dim ret As Long
Dim hwnd As Long
Dim str As String * 256
ret = GetDesktopWindow()
hwnd = GetWindow(ret, GW_CHILD)
Do While hwnd <> 0
GetWindowText hwnd, str, Len(str)
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
If Left$(str, 1) <> vbNullChar Then
Form1.List1.AddItem str
End If
Loop
End Sub

[fishflywithbird]

谢谢！
请问一下怎么去修改icon呢？

[limitworld]

图标可能不能动态修改的吧。

[fishflywithbird]

好像是你说得那样！就算是可以修改app.name什么的，但是不能修改icon!看了一下API好像也没有好的办法！郁闷！
再到这个周末，没有高手能够帮忙，那就结帖给分！