PostMessage를 보내려 하는데요.. parameter는 dir경로를 보내려고 합니다..
dir경로의 주소값을 PostMessage의 LParam실어서.. 보낸다음..

받을때는 주소값을 가지고.. dir경로를 얻어내야 하는데..
어떻게 받아야 하는지요?
다음과 같이 코딩했는데 잘 안됩니다.. 글자 깨집니다..

부탁드립니다... 이상 초보가..



====== 보내는쪽 ========

var
PM3uDir: PChar;
begin
PM3uDir := PChar( 'c:\aaaa\aa.lst' );
PostMessage( Handle, WM_MEDIAPLAYER_PLAY, WPARAM_M3UDIR, LongInt(@PM3uDir) );





======= 받는쪽 ========


procedure TClientMain.WndProc(var message: TMessage);
var
PStr: PChar;
m3uDir: String;
begin
inherited;
case ( message.Msg ) of
   WM_MEDIAPLAYER_PLAY :
     begin
       PStr := PChar( message.LParam );
       m3uDir := StrPas( PStr );
       ShowMessage('play, address:'+IntToStr(message.LParam)+', dir='+m3uDir);
     end;
end;
end;