بدست آوردن کپشن با استفاده از نام برنامه

[amin1softco]

سلام اگر بخواهیم با داشتن نام برنامه در تسکبار به تیتر برنامه دسترسی پیدا کنیم (caption)باید از چه api استفاده کنیم مثلا وقتی عکس این عمل اینجوریه که در تسکبار go to prosses که بزنیم می ره روی نام برنامه که اجرا شده حالا عکس اینو می خواهیم تو وی بی اجرا کنیم :متفکر: دوستام یاری کنند:چشمک:

[r0ot$harp]

دوست عزیز اینم خدمت شما :


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Sub Form_Load()
Dim mHwnd As Long
mHwnd = FindWindow(vbNullString, "Untitled - Notepad")
If mHwnd <> 0 Then
Dim CaptionS As String
CaptionS = String(50, vbNull)
GetWindowText mHwnd, CaptionS, 50
MsgBox Trim(CaptionS)
End If
End Sub



باتشکر احسان

[amin1softco]

شرمنده آقا احسان فقط سوال من جور دیگه ایی بود یعنی وقتی notepad.exe در حال اجراست caption رو بدست بیاریم هرچیزی هم که می خواهد باشه.....:متفکر:

[xxxxx_xxxxx]

شايد اين بتونه بهتون كمك كنه
http://barnamenevis.org/forum/showthread.php?t=123775