Тема: ShellExecute
Показать сообщение отдельно
  #15  
Старый 21.09.2010, 15:56
Аватар для eXplorer
eXplorer eXplorer вне форума
Активный
 
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
По умолчанию

надо пробел поставить после /с...
Код:
var
d1:string;
d:string;
begin
d1:='/c'+' ';
d:='rundll32 shell32,OpenAs_RunDLL';
d1:=d1+d;
ShellExecute(0,'open','cmd.exe',Pchar(d1), 'C:\Windows\system32\',SW_SHOW);
end;

ДОЛЖНО БЫТЬ ПРАВИЛЬНО...
Ответить с цитированием