سلام به دوستان برنامه نويس ، ميخواستم بدونم چجوري ميشه يک مقدار string رو به pansi تبديل کنم.
با تشکر قبلي
var path:PAnsiChar;
str= ' c:\My Folder'
path:=کد تبديل
ShellExecute(hwnd(nil),'',path,'','',SW_MAXIMIZE);
سلام به دوستان برنامه نويس ، ميخواستم بدونم چجوري ميشه يک مقدار 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);
موفق باشید ...
این پست خیلی قدیمی است قطعا شما به جواب رسیدید برای کسانی که این مشکل رو دارن جواب دادم
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;