ab.com コミュニティ

ActiveBasicを通したコミュニケーション
前回の訪問日時: 2019年12月12日(木) 23:23 現在時刻 - 2019年12月12日(木) 23:23

All times are UTC+09:00




 [ 2 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2019年11月28日(木) 15:13 
エディットボックスがあり、その下に1個ボタンオブジェクトをつくります。

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

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


ページトップ
   
 
投稿記事Posted: 2019年11月28日(木) 17:39 
こんな感じですか?
コード:
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



ページトップ
   
 
 [ 2 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: CCBot, SemrushBot & ゲスト[1人]


トピック投稿: 不可
返信投稿: 不可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean