Fenstertitel anhand Exename ermitteln

10/01/2008 - 16:13 von BlackMizi | Report spam
Moin,

ich habe eine folgende Funktion:

Public Function getProgamNameFromProgamId(pid As Long) As String
Dim sName As String
Dim ph&, ret&, i&
Dim pe As LPPROCESSENTRY32

On Error Resume Next
ph = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
pe.szExeFile = String$(127, Chr$(255))
pe.dwSize = Len(pe)
ret = Process32First(ph, pe)
Do While ret <> 0
If pe.th32ProcessID = pid Then
sName = pe.szExeFile
i = InStr(sName, Chr$(0))
If i > 0 Then
sName = Left$(sName, i - 1)
End If
Exit Do
End If
ret = Process32Next(ph, pe)
Loop
CloseHandle ph

getProgamNameFromProgamId = sName

End Function ' getProgamNameFromProgamId()


Ich würde nun anstatt des Programmnamens gerne den Fenstertitel haben.
Wie komme ich da ran? Ich habe schon ewiglich gesucht, aber irgendwie
finde ich leider nichts!

Gruß und Dank
Kai
 

Lesen sie die antworten

#1 Harald M. Genauck
10/01/2008 - 20:36 | Warnen spam
Hallo Kai,

Ich würde nun anstatt des Programmnamens gerne den Fenstertitel
haben.
Wie komme ich da ran? Ich habe schon ewiglich gesucht, aber irgendwie
finde ich leider nichts!



Den Titel welchen Fensters? Ein Programm (EXE) kann viele Fenster
haben...


Viele Grüße

Harald M. Genauck

"visual studio one" - http://www.visualstudio1.de (Chefredakteur)
"ABOUT Visual Basic" - http://www.aboutvb.de (Herausgeber)

Ähnliche fragen