您当前的位置: 怎么样吧String类型的转换为PAnsiChar类型的呢？
本来只是一个消息的提示Showmessage(),
但是这个只有一个参数，不能修改标题栏，标题栏只能显示exe的名字。
于是换了一个MesssageBox(),
这个倒是可以，但是里面的第二个参数是PAnsiChar类型的，于是报错。
最终目的就是能够显示有一个标题栏能够自由显示的消息提示框。
更好的办法请教中。。。。。
------解决方案--------------------
“但是这个只有一个参数，不能修改标题栏，标题栏只能显示exe的名字。”
- C/C++ code
//这样子就可以了
Application->MessageBox("3860!","标题信息：",MB_ICONWARNING) ;
------解决方案--------------------
- Delphi(Pascal) code
procedure TForm1.showmsg(msg:string);
var
c:PAnsiChar;
begin
c:=Pchar(msg);
MessageBox(Form1.Handle ,c,'message',MB_ok);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmsg('3860提示你：');
end;
------解决方案--------------------
- Delphi(Pascal) code
precedure showmsg(msg: String) begin MessageBox(0, PChar(msg), 'message', MB_OK); end;