[Adrenalin666]

Код:

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);

но почемуто не работает в тестировании программы