تبديل string به pansichar

[arkia]

سلام به دوستان برنامه نويس ، ميخواستم بدونم چجوري ميشه يک مقدار string رو به pansi تبديل کنم.
با تشکر قبلي





var path:PAnsiChar;

str= ' c:\My Folder'
path:=کد تبديل
ShellExecute(hwnd(nil),'',path,'','',SW_MAXIMIZE);

[Mahmood_M]

باید از Pchar استفاده کنید :

ShellExecute(hwnd(nil),'',pChar(Str),'','',SW_MAXI MIZE);

موفق باشید ...

[arkia]

حل شد مرسی

[rainstorm]

سلام به دوستان برنامه نويس ، ميخواستم بدونم چجوري ميشه يک مقدار string رو به pansi تبديل کنم.
با تشکر قبلي





var path:PAnsiChar;

str= ' c:\My Folder'
path:=کد تبديل
ShellExecute(hwnd(nil),'',path,'','',SW_MAXIMIZE);






این پست خیلی قدیمی است قطعا شما به جواب رسیدید برای کسانی که این مشکل رو دارن جواب دادم

PAnsiChar یک اشاره گر به AnsiChar هست
به نمونه زیر دقت کنید گره کارتونو باز میکنه


uses
ShellApi

....


procedure TForm1.Button1Click(Sender: TObject);
var
VPAnsiChar:PAnsiChar;
VStr:string;
begin
VStr:= 'cmd /c "ping ' + Edit1.text + '"';
VPAnsiChar := PAnsiChar(AnsiString(VStr));
WinExec(VPAnsiChar, SW_SHOW);
end;