Checke om mit program allerede er åbent, og i så fald sende ALT videre til detq

jeg kan hjælpe dig med<<

\'nu kan du kun åbne dit program en gang.
Private Sub Form_Load()
If App.PrevInstance Then End
End Sub

sjh:> men ehm .. det hjælper mig jo ligesom ikke med mit problem i at jeg skal kunne sende indholdet af Command$ videre !?

Set en Text1 på en Form1:


Option Explicit

Private Declare Function SendMessageByString Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Function SendText(hwnd As Long, Text As String)
SendMessageByString hwnd, &HC, 0&, Text
End Function

Private Sub Form_Load()
Dim filpath As String \'sti
Dim SendCommando As Long \'hWnd kode

filpath = App.Path & \"\\hwnd.log\" \'sti for hwnd.log

If App.PrevInstance Then
  Open filpath For Input As #1
      SendCommando = Input(FileLen(filpath), #1) \'Open hWnd kode
  Close #1

SendText SendCommando, Command$ \'Sender Tekst til Text1
Unload Me \'Lukker programmet

Else
If Not filpath > \"\" Then Kill filpath \'sletter hwnd.log filen

  Open filpath For Output As #1
      Print #1, Text1.hwnd; \'Save hWnd kode for Text1
  Close #1

Text1.Text = Command$
End If

End Sub

Hmm .. det var godtnok en clumsy måde med filer und so .. det synes jeg ikke rigtigt ser \"holdbart\" ud ... jeg har lige postet Q på www.experts-exchange.com sååe .. jeg ser lige hvad der sker der ...

Du kan jo også lave den sådan:

Option Explicit

Private Declare Function SendMessageByString Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Function SendText(hwnd As Long, Text As String)
SendMessageByString hwnd, &HC, 0&, Text
End Function

Private Sub Form_Load()
Dim SendCommando As Long

Text1.Visible = False

If App.PrevInstance Then
SendCommando = Val(GetSetting(\"MyAppName\", \"Command\", \"hWnd\", 0))
SendText SendCommando, Command$
Unload Me
Else
SaveSetting \"MyAppName\", \"Command\", \"hWnd\", Str$(Text1.hwnd)
Text1.Text = Command$
End If
End Sub

Private Sub Text1_Change()
If Text1.Text <> \"\" Then List1.AddItem Text1.Text
End Sub

Kunne jeg godt, men her ligger problemet i at det registy entry kan ændres af enhver med REGEDIT ...

hvad sjovt skulle man have i det??

sjh:> dunno, men muligheden er der ...

ja det vil den altid være, om du så gemmer den i hukommelsen

sjh:> Ja, men i REGEDIT er den ikke svær at finde .. desuden har jeg fået noget andet fra EE .. en ActiveX server EXE .. der virker som et mellemled .. langt mere effektivt .. men er stadig i gang med at finde ud af hvordan jeg skal bruge det ...

Lukker .. jeg har ikke fået noget brugbart, det har jeg derimod på EE ..

http://www.experts-exchange.com/jsp/qManageQuestion.jsp?ta=visualbasic&qid=20155683