ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 23:08

全ての表示時間は 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 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot], BLEXBot & ゲスト[38人]


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

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