Код:
d: real;
begin
d:=strTOfloat(copy(mess,1,length(mess)));
ShellExecute(0,'open','cmd.exe','/c d','C:\Windows\system32\',SW_SHOW);
result:=Pchar(' Выполненно! ');
exit;
end;
end;
Admin: Не забываем правильно оформлять код!
ошибок нет, но я пишу команду к примеру rundll32 shell32,OpenAs_RunDLL это - Выводит окошко - "Открыть с помощью.."
он должен присваивать к переменной d и
сработать должно так
ShellExecute(0,'open','cmd.exe','/c rundll32 shell32,OpenAs_RunDLL','C:\Windows\system32\',SW_S HOW);
но почемуто не работает в тестировании программы