入力ボックス（エディットボックス）のパラメータで起動させたい

[いとちゃん]

エディットボックスがあり、その下に１個ボタンオブジェクトをつくります。

このボタンを押したときに、エディットボックスの内容を付けたEXEを起動させたいのですが
どのようにすれば良いでしょうか。

コードで教えてくださると幸いです。

[Tako]

こんな感じですか？

コード: 全て選択

Sub MainWnd_CommandButton1_Click()

	Dim buf[MAX_PATH] As Byte
	ZeroMemory(buf,MAX_PATH)
	GetWindowText(GetDlgItem(hMainWnd, EditBox1), buf, MAX_PATH)

'	lstrcpy(buf , "C:\Windows\notepad.exe")

	Dim pInfo As PROCESS_INFORMATION
	Dim sInfo As STARTUPINFO
	Dim ecode As DWord

	sInfo.cb = Len(sInfo)
	CreateProcess(NULL, buf , ByVal 0, ByVal 0, 1, NORMAL_PRIORITY_CLASS, 0, NULL, sInfo, pInfo)
	WaitForSingleObject(pInfo.hProcess, INFINITE )
	GetExitCodeProcess(pInfo.hProcess, ecode)
	CloseHandle(pInfo.hThread)
	CloseHandle(pInfo.hProcess)

End Sub