Arbeiten mit Pipes

[Digielm]

Hallo Leute,

ich hab da ein riesen Problem diese Funktion klappte unter Delphi 2006 ohne Probleme:

Delphi-Quellcode:

procedure SendPipeMessage(lpvMessage: PChar);
var
  fSuccess: BOOL;
  cbWritten:  DWord;

begin
  try
    fSuccess:=
      WriteFile(hPipe, lpvMessage^, strlen(lpvMessage) + 1, cbwritten, nil);
    if not fSuccess then
    begin
      InitPipe;
    end;
    except
    end;
end;

Nach der Umstallung auf Delphi 2009 bekomme ich den Message mit div \0 .. zurück also keinen richtigen Stringmehr.
Ich meine zu wissen das sich in der Variablenthematik bezüglich unicode was getan hat nur momentan stehe ich leider völlig auf dem schlauch.

Also die pipe Message ist z.B. 'DAIL 123456789' dann bekomme ich jetzt "D\0I\0A\0L\0 \01\02\0" zurück
die \0 sind definitiv zu viel in dem String.

Ich hoffe es kann mir jemand helfen.