[NumLock]

очень грубо
сервер:

Код:

  hPipe:=CreateNamedPipe(
    PChar('\\.\pipe\mynamedpipe'),
    PIPE_ACCESS_DUPLEX,
    PIPE_TYPE_BYTE or PIPE_READMODE_BYTE or PIPE_WAIT,
    PIPE_UNLIMITED_INSTANCES,
    512,
    512,
    0,
    nil
  );
  if hPipe=INVALID_HANDLE_VALUE then raise Exception.Create(SysErrorMessage(GetLastError));

клиент:

Код:

  hFile:=CreateFile(
    PChar('\\localhost\pipe\mynamedpipe'),
    GENERIC_READ or GENERIC_WRITE,
    0,
    nil,
    OPEN_EXISTING,
    0,
    0
  );
  if hFile=INVALID_HANDLE_VALUE then raise Exception.Create(SysErrorMessage(GetLastError));