■ ゲーム製作技術板自治03

■ ゲーム製作技術板自治03at GAMEDEV

■ ゲーム製作技術板自治03 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

459:名前は開発中のものです。
 11/03/04 07:44:26.27 sVzpMWFb.net
自治板04立てなければ自動的に決着がつくんじゃないの？

460:名前は開発中のものです。
 11/03/04 07:46:55.19 vhSZK/lm.net
Private Function RunProcess(GetExePath$, GetCommandLine$, GetFileName$) 
On Error GoTo RunProcess_Err 
　　Dim udtProcessAttributes As SECURITY_ATTRIBUTES 
　　Dim udtThreadAttributes As SECURITY_ATTRIBUTES 
　　Dim strCurrentDriectory As String 
　　Dim udtStartupInfo　　　　As STARTUPINFO 
　　Dim udtProcessInfomation As PROCESS_INFORMATION 
　　Dim lngProcessExitCode　　As Long 
　　Dim lngWin32apiResultCode As Long 
　　stbMain.Panels(1).Text = GetFileName$ & " ************ しばらくお待ち下さい。" 
　　dtProcessAttributes.nLength = Len(udtProcessAttributes) 
　　udtThreadAttributes.nLength = Len(udtThreadAttributes) 
　　strCurrentDriectory = vbNullString 
　　udtStartupInfo.cb = Len(udtStartupInfo) 
　　lngWin32apiResultCode = CreateProcess(GetExePath$, GetCommandLine$, udtProcessAttributes, udtThreadAttributes, False, 0, ByVal vbNullString, strCurrentDriectory, udtStartupInfo, udtProcessInfomation) 
　　If lngWin32apiResultCode <> 0 Then 
　　　　Do 
　　　　　　With udtProcessInfomation 
　　　　　　　　lngWin32apiResultCode = GetExitCodeProcess(.hProcess, lngProcessExitCode) 
　　　　　　End With 
　　　　　　DoEvents 
　　　　Loop While lngProcessExitCode = STILL_ACTIVE 
　　Else 
　　End If 
こんなんでも良いよ。

次ページ