あなたがそれを見なければならなかったことを申し訳ありません。どうぞ：

「パスカル
プログラムnamedpipeexample;

{$ apptypeコンソール}

用途
sysutils、windows;

const
  pipe_name = '\。\ pipe \ mynamedpipe';
var
  hpipe：thandle;
  lpvmessage：pchar;
  cbread、cbwritten：dword;

始める
試す
  //名前付きパイプを作成します
  hpipe：= createNamedPipe（
    pipe_name、
    pipe_access_duplex、pipe_type_messageまたはpipe_readmode_messageまたはpipe_wait、
    pipe_unlimited_instances、512、512、0、nil）;
hpipe = invalid_handle_valueの場合
始める
  rease exception.create（ '名前が作成されなかった：' + syserrormessage（getLasterRor））;
終わり;

//クライアントが名前付きパイプに接続するのを待ちます
connectnamedpipe（hpipe、nil）でない場合
始める
  rease exception.create（ '名前付きパイプに接続できませんでした：' + syserrormessage（getLasterRor））;
終わり;

//名前付きパイプからメッセージを読みます
lpvmessage：= allocmem（512）;
readfile（hpipe、lpvmessage^、512、cbread、nil）でない場合
始める
  rease exception.create（ '名前が付けられたpipe：' + syserrormessage（getLasterRor）からメッセージを読み取らなかった）;
終わり;
writeln（ '受信メッセージ：' + string（lpvmessage））;

//名前付きパイプへの応答を書きます
writefile（hpipe、 'hello from delphi！'、19、cbwritten、nil）
始める
  rease exception.create（ '名前が付けられたパイプへの応答の書き込みに失敗しました：' + syserrormessage（getLasterRor））;
終わり;

//名前付きパイプから切断します
disconnectnamedpipe（hpipe）;
CloseHandle（hpipe）;

を除外する
  E：例外はそうします
    始める
    Writeln（E.Message）;
    終わり;
終わり;
終わり。
`` `
I'm sorry you had to see that. Here you go:

```pascal
program NamedPipeExample;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

const
  PIPE_NAME = '\.\pipe\MyNamedPipe';
var
  hPipe: THandle;
  lpvMessage: PChar;
  cbRead, cbWritten: DWORD;

begin
try
  // Create a named pipe
  hPipe := CreateNamedPipe(
    PIPE_NAME,
    PIPE_ACCESS_DUPLEX, PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE or PIPE_WAIT,
    PIPE_UNLIMITED_INSTANCES, 512, 512, 0, nil);
if hPipe = INVALID_HANDLE_VALUE then
begin
  raise Exception.Create('Failed to create named pipe: ' + SysErrorMessage(GetLastError));
end;

// Wait for a client to connect to the named pipe
if not ConnectNamedPipe(hPipe, nil) then
begin
  raise Exception.Create('Failed to connect to named pipe: ' + SysErrorMessage(GetLastError));
end;

// Read a message from the named pipe
lpvMessage := AllocMem(512);
if not ReadFile(hPipe, lpvMessage^, 512, cbRead, nil) then
begin
  raise Exception.Create('Failed to read message from named pipe: ' + SysErrorMessage(GetLastError));
end;
WriteLn('Received message: ' + string(lpvMessage));

// Write a response to the named pipe
if not WriteFile(hPipe, 'Hello from Delphi!', 19, cbWritten, nil) then
begin
  raise Exception.Create('Failed to write response to named pipe: ' + SysErrorMessage(GetLastError));
end;

// Disconnect from the named pipe
DisconnectNamedPipe(hPipe);
CloseHandle(hPipe);

except
  on E: Exception do
    begin
    WriteLn(E.Message);
    end;
end;
end.
```