نمایش نتایج 1 تا 4 از 4

نام تاپیک: تبديل string به pansichar

  1. #1

    تبديل string به pansichar

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




    var path:PAnsiChar;

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




  2. #2
    مدیر بخش آواتار Mahmood_M
    تاریخ عضویت
    بهمن 1384
    محل زندگی
    گیلان _ رشت
    پست
    2,460

    نقل قول: تبديل string به pansichar

    باید از Pchar استفاده کنید :
    ShellExecute(hwnd(nil),'',pChar(Str),'','',SW_MAXI  MIZE);


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

  3. #3

    نقل قول: تبديل string به pansichar

    حل شد مرسی

  4. #4
    کاربر تازه وارد آواتار rainstorm
    تاریخ عضویت
    فروردین 1384
    محل زندگی
    هر کجا باشم فرقی نمی کنه مهم اینکه تو گل زندگمی
    پست
    50

    نقل قول: تبديل string به pansichar

    نقل قول نوشته شده توسط 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;




قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •