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;