CreateThread参数求助?
procedure Test(msg:string );
begin
MessageBox(0,PChar(msg),'提示',MB_OK );
end;

procedure TForm1.btn1Click(Sender: TObject);
var
tid:cardinal;
str1:pchar;
begin
str1:='abcdf';
CreateThread(nil,0,@Test,str1,0,tid);
end;

对话框弹出来是乱码。求更正。


[解决办法]
test过程 要加stdcall;亲，这是调用约定
[解决办法]
procedure Test(msg:string ); stdcall;