Tweet
#Compile Exe
#Dim All
#Register None
#Include "Win32Api.Inc"
%ID_TEXT = 101
Type COPYDATASTRUCT
dwData As Asciiz Ptr
cbData As Dword
lpData As Asciiz Ptr
End Type
CallBack Function DlgProc
Select Case CbMsg
Case %WM_COPYDATA
Dim cdt As COPYDATASTRUCT Ptr
cdt = CbLparam
Dim Txt As String
Control Get Text CbHndl, %ID_Text To Txt
Txt = Txt + $CRLF + @[email protected]
Control Set Text CbHndl, %ID_Text, Txt
Function = 1: Exit Function
End Select
End Function
Function WinMain (ByVal hCurInstance As Long, ByVal hPrevInstance As Long, _
lpszCmdLine As Asciiz Ptr, ByVal nCmdShow As Long) Export As Long
Dim hMutex As Long, hDlg As Long, Cdt As COPYDATASTRUCT, PrgName As Asciiz * %MAX_PATH, Msg As tagMsg, hWnd As Long
PrgName = "Any unique name"
hMutex = CreateMutex(ByVal %Null, 0, PrgName): If hMutex = 0 Then Exit Function ' Error in Mutex
If GetLastError = %ERROR_ALREADY_EXISTS Then
Cdt.cbdata = Len(@lpszCmdLine) + 1
Cdt.lpData = lpszCmdLine
While IsFalse(hWnd)
hWnd = FindWindow (ByVal 0&, PrgName)
While PeekMessage(Msg, %NULL, %NULL, %NULL, %PM_REMOVE): Wend
Wend
SendMessage hWnd, %WM_COPYDATA, 0, VarPtr(Cdt): Exit Function
End If
Dialog New 0, PrgName, , , 450, 200, %WS_SYSMENU Or %WS_CAPTION To hDlg
Control Add TextBox, hDlg, %ID_TEXT, Command$, 10, 10,430, 180, %ES_MULTILINE, %WS_EX_CLIENTEDGE
Dialog Show Modal hDlg Call DlgProc
CloseHandle hMutex ' Possible to delete
End Function
Comment