国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 桂阳县| 黔江区| 呼玛县| 布拖县| 伊春市| 芦溪县| 平凉市| 林州市| 福贡县| 和平区| 石楼县| 尼勒克县| 南平市| 刚察县| 长武县| 藁城市| 娄底市| 铜山县| 汽车| 晋城| 南宁市| 呼玛县| 东明县| 三都| 淄博市| 富民县| 敖汉旗| 赣州市| 成都市| 玛多县| 吴桥县| 南木林县| 大竹县| 水城县| 镇原县| 东源县| 昂仁县| 南雄市| 贵州省| 衡南县| 光山县|