ab.com コミュニティ

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

こんな感じですか？
[code]
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

[/code]

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

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

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