1

我用它从 cmd (Windows Shell) 中读取一个宽字符串。

var
 pBuffer       : array [0..250] of WideChar;
 aBuffer       : array [0..250] of Char;
 RealUnicode   : Integer;
 ExtendedAscii : Integer;
begin
 RealUnicode   := 2;
 ExtendedAscii := 1;
 // ... pipes etc...
 CreateProcessW(nil, pwidechar(ComSpec + ' /U'), nil, nil, TRUE, (CREATE_NEW_CONSOLE or CREATE_BREAKAWAY_FROM_JOB), nil, nil, StartupInfo, ProcessInfo);
 // ...
 while true do begin
  sleep (10); // Reduce CPU Usage
  GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
  if ExitCode <> STILL_ACTIVE then Break;
  FillChar(pBuffer,SizeOf(PBuffer), #0);
  ReadFile(hoRead, pBuffer[0], 250, BytesRead, nil);    
  if BytesRead > 0 then begin
   if (IsTextUnicode(@pBuffer, BytesRead, @RealUNICODE) or IsTextUnicode(@pBuffer, BytesRead, @ExtendedAscii) then begin
    MessagBoxW(0,dbuffer,'',0);
   end else begin
    FillChar    (aBuffer,SizeOf(aBuffer ), #0);
    CopyMemory  (@aBuffer , @pBuffer, BytesRead * 2);
    MessageBoxA (0, aBuffer, '', 0);
   end;
  end;
 end;
end;

这个片段实际上很好用。它确保如果 ansi 字符串/字符被写入控制台（例如 - ping.exe），它会在稍后获得 ANSI 输出。不幸的是，有一个小故障。我使用 ping.exe，它可以正常工作，直到它返回到 Unicode 部分。这实际上很难解释，但我希望你们知道我的意思。感谢您的帮助。

编辑：当 ping.exe 完成时，代码段出于某种原因返回空字符串。尽管 readbytes > 0

编辑2： 在此处输入图像描述

说明：我使用 CreateProcesW 启动 cmd，设置管道等，然后读取第一个缓冲区字节（Unicode 格式）。然后我输入 ipconfig 并切换回 ANSI。然后它读取字节，它们是空的 ANSI 字符串。之后，“程序”（不是 cmd）有时会崩溃。

EDIT3：我在这里有一个例子（带有源代码和二进制文件）。它是用delphi7和tntcontrols编译的。如果您没有 tntcontrols，只需在表单中添加一个备忘录（名称：Memo1）。并将宽字符串更改为字符串和/或尝试使用 messageboxW 对其进行调试。 http://dl.dropbox.com/u/349314/UNICODE%20Shell%20Example.rar 这个例子不关心ansi输入！

4

1 回答 1

1

控制台无法正确显示所有 Unicode 字符。这是因为控制台窗口限制。控制台进程的输出是 OEM 编码（或 DOS 编码），而不是 ANSI。

您可以通过将输出重定向到文件来检查它。通常，如果文件包含非英文字符，文件将无法在记事本中正确显示。

当您运行cmd.exe时，/u您可以预期它将 Unicode 字符写入管道。在这种情况下，您应该始终将输出视为 Unicode。

您通过调用 Wide-version 创建流程。但这并不意味着启动的进程使用 Unicode 函数来进行输出。此外，从 Windows 2000 开始，Windows API 函数的所有 Ansi 版本都是 Wide 版本的包装器：

  1. Ansi 函数使用默认代码页将输入参数中的所有文本转换为宽字符串。
  2. 然后它调用Wide-version。
  3. 将结果（如果有）从 Wide- 转换为 Ansi 并返回。

但是，这对于控制台窗口并不完全正确。程序通常需要将其 Unicode 字符串转换为 OEM 编码（DOS 编码），然后将结果写入标准输出。只有在这种情况下，它才会被控制台窗口正确显示。

于 2012-10-21T15:12:11.573 回答