این کد چرا کار نمی کنه ؟

[BORHAN TEC]

دقت کنید که drives حتما باید متغیر باشد چون باید مدام تغییر کند.(در دلفی 2009)


procedure TForm1.Button1Click(Sender: TObject);
var
Drive : Char;
command : Ansistring;
PCommand : PAnsichar;
begin
Drive := 'c';
command := 'cmd /c "ren\\.\' + Drive + ':\Autorun.inf\1.txt 2.ini"';
strpcopy(pcommand, command);
WinExec(pcommand, SW_HIDE);
end;

[Mahmood_M]

دوست عزیز توضیح بیشتری لازمه ... !
این کد باید چی کار کنه ؟ چه مشکلی پیش میاد ؟ چه پیغامی میده ؟ ، وقتی اجرا میشه چه اتفاقی می افته ؟ شاید مشکل از Command هست ...
لطفا توضیح بهتری بدبد تا جواب مناسبی بگیرید ...

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