Bjarke Walling Petersen <bwp@bwp.dk> skrev i
news:9jf4n1$bod$1@news.cybercity.dk
> Franz Jäger skrev:
> > er der en kommando til at tjekke om et andet program kører ??
>
> Jeg ved ikke om der findes én kommando...
> Men det kan gøres på forskellige måder - alt efter hvad man vil.
> Hvis man vil tjekke om der kører en anden instance af programmet selv, kan
> man gøre sådan her:
>
> ' Retunerer True hvis der kører en anden instance af programmet:
> App.PrevInstance
>
> Hvis man vil tjekke om et andet program kører og kender vinduets titel,
kan
> man gøre sådan: (tjekker om et vindue med en bestemt titel findes - denne
> metode skal nok hovedsageligt kun bruges til programmer man ikke selv har
> lavet)
>
> Private Declare Function GetWindow Lib "user32" _
> (ByVal hWnd As Long, ByVal wCmd As Long) As Long
> Private Declare Function GetWindowTextLength Lib _
> "user32" Alias "GetWindowTextLengthA" _
> (ByVal hWnd 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 Function WindowExists(WindowTitle As String) As Boolean
> Dim hWnd As Long
> Dim Length As Long
> Dim Title As String
> WindowExists = False
> hWnd = GetWindow(Me.hWnd, 0)
> While hWnd <> 0 And WindowExists = False
> Length = GetWindowTextLength(hWnd) + 1
> Title = Space(Length)
> If GetWindowText(hWnd, Title, Length) > 0 Then
> If WindowTitle = Left(Title, Length - 1) Then
> WindowExists = True
> End If
> End If
> hWnd = GetWindow(hWnd, 2)
> Wend
> End Function
>
> Hvis du selv laver begge programmer (det der skal tjekkes og det der
> tjekker) er der vist en smart måde at få dem til at kommunikere på -
hvilket
> er langt bedre end at søge efter vinduetitlen... jeg kender den bare ikke.
>
Går det ikke an å kommuniserer slik som man kommuniserer til WinAmp ???
Jeg finner ikke noe informasjon om hvordan få programmet sitt til å ta imot
informasjon på den måten, men som alltid hadde det vært fint om noen visste
noe ... (og det er det også vanligvis ...)
--
Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/