تبديل string به pansichar

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

var   path:PAnsiChar;



str= ' c:\My Folder'

path:=کد تبديل

ShellExecute(hwnd(nil),'',path,'','',SW_MAXIMIZE);

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

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

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

حل شد مرسی

نقل قول:

---

نوشته شده توسط arkia

سلام به دوستان برنامه نويس ، ميخواستم بدونم چجوري ميشه يک مقدار 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;