VB/DELPHI 不使用管道和重定向方式获取SHELL输出内容

function GetCMDHandleValue(const ihwnd: HWND): string; begin Result:= ''; if ihwnd <= 0 then Exit; ExecSysMenuCmd(ihwnd,'编辑->全选'); Sleep(100); ExecSysMenuCmd(ihwnd,'编辑->复制'); Sleep(100); {* 从剪贴版中获取 } try Result := Clipboard.AsText; except end; end; function ExecSysMenuCmd(const hMain: HWND; const sMenu: string): Boolean; procedure ExecSysMenuCmdEx(const H: HMENU; const lstMenu: TStringList); var hSub: HMENU; nID: Cardinal; S, sSub: string; I, iCount: Integer; lpBuf: array [0..MAX_PATH-1] of Char; begin Result := False; if lstMenu.Count = 0 then Exit; sSub := LowerCase(lstMenu[0]); iCount := GetMenuItemCount(H); if iCount = -1 then Exit; for I := 0 to iCount -1 do begin FillChar(lpBuf, SizeOf(lpBuf), #0); GetMenuString(H, I, lpBuf, SizeOf(lpBuf) div 2, MF_BYPOSITION); S := StrPas(lpBuf); S := StringReplace(S, '&', '', [rfReplaceAll]); S := LowerCase(S); if Pos(sSub, S) > 0 then begin lstMenu.Delete(0); if lstMenu.Count = 0 then begin nID := GetMenuItemID(H, I); PostMessage(hMain, WM_SYSCOMMAND, MAKEWPARAM(nID, 0), 0); Result := True; end else begin hSub := GetSubMenu(H, I); if hSub = 0 then Exit; ExecSysMenuCmdEx(hSub, lstMenu); end; Break; end; end; end; var H: HMENU; I: Integer; lstMenu: TStringList; begin Sleep(100); H := GetSystemMenu(hMain,False); if H = 0 then Exit; lstMenu := TStringList.Create; try lstMenu.Text := StringReplace(sMenu, '->', #13#10, [rfReplaceAll]); for I := lstMenu.Count -1 downto 0 do begin if Trim(lstMenu[I]) = '' then lstMenu.Delete(I); end; ExecSysMenuCmdEx(H, lstMenu); finally lstMenu.Free; end; end;