Prog. der checker om andet VB prog. kører

Du kan bruge FindWindow til at finde ud af om der findes et window med det navn du leder efter.

Men det pågældende program kører med "Unattended execution". Så det kan jeg vel ikke?

Kig i kildekoden til setup-wizard'en.  Den tillader ikke at andre VB-programmer kører.  Jeg har i hvert fald kildekoden til VB3-setup.

M.v.h.  Jørn

joern: Hvad skal du have for at hjælpe mig?

Hvis det er et spørgsmål om generelt at sikre at ingen andre VB programmet kører, og ikke som jeg troede et bestemt vb-program, så skal du bruge API kald til at finde alle de processer der kører på maskinen. For hver process kan du så hente processinformationerne og herigemmen bl.a. finde frem til typen.

Men hvis det stadig er et bestemt program som du kender navnet på kan du finde ud af det gennem findwindow (alle programmer har et window også selvom dette ikke er synligt) eller via APIkald med getprocessinfo for det pågældende program.

sjensen: Det er som du rigtig nok forstod det et bestemt VB prog. jeg vil kontrollere. Så hvad skal der til for at få lidt VB kode jeg kan arbejde videre med?

Hvad med nedenstående?

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()
    Dim hwnd As Long
    hwnd = FindWindowEx(0, 0, "wndclass_desked_gsk", vbNullString)
    Call SetWindowText(hwnd, "Hej")
End Sub

Mvh

Koden ovenfor finder VB vinduet og sætter caption til Hej. Class navnet kan fx. findes vha. Spy++.