procedure StartProcess(const sName:ansistring);
var sa:STARTUPINFO;
    pi:PROCESS_INFORMATION;
begin
 FillChar(sa,sizeof(sa),0);
 sa.wShowWindow:=SW_HIDE;
 sa.dwFlags:=STARTF_USESHOWWINDOW;
 CreateProcess(nil,pChar('cmd /c start '+sName),nil,nil,false,0,nil,nil,sa,pi);
end;