国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設計 > 正文

Shell

2019-11-18 17:51:41
字體：大 中 小
來源：轉載
供稿：網(wǎng)友
希望某一VB程序利用Shell執(zhí)行某一個外部程序(假設是notepad.exe)之后，就一直等到此一程序結束執(zhí)行時，才回到VB程序繼續(xù)執(zhí)行，該怎么辦到呢？

當我們調用Shell時，會傳回一個數(shù)值，此一數(shù)值稱為accessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong
PrivateDeclareFunctionWaitForSingleObjectLib"kernel32"(ByValhHandleAsLong,ByValdwMillisecondsAsLong)AsLong

注：如果以上的聲明放在「一般模塊」底下，應將Declare之前的Private保留字去掉，并且在Const之前加上Public保留字。

2.程序范例：(以執(zhí)行Notepad程序為例)

DimpIdAsLong,pHndAsLong'分別聲明ProcessId及ProcessHandle變數(shù)

pId=Shell("Notepad",vbNormalFocus)'Shell傳回ProcessId

pHnd=OpenProcess(SYNCHRONIZE,0,pId)'取得ProcessHandle
IfpHnd<>0Then
CallWaitForSingleObject(pHnd,INFINITE)'無限等待，直到程序結束
CallCloseHandle(pHnd)
EndIf->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 怀仁县| 龙陵县| 普兰县| 康乐县| 灵宝市| 灯塔市| 贡嘎县| 红安县| 新乡市| 定日县| 偏关县| 海丰县| 永和县| 洛浦县| 丰台区| 高邑县| 东安县| 肥乡县| 平阳县| 昌都县| 高邮市| 荥阳市| 崇阳县| 科技| 汝城县| 阿克苏市| 连平县| 甘泉县| 耿马| 涞水县| 饶阳县| 营口市| 洪雅县| 麻城市| 岳普湖县| 桐乡市| 香河县| 梁河县| 三江| 宜城市| 陆川县|