[Deell]

есть такой код, ошибок не выдает но выполнение файла rdp не происходит, подскажите плз в чем дело?

Код:

FillChar(StartInfo, SizeOf(TStartUpInfo), #0);
          FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
          StartInfo.cb := SizeOf(TStartUpInfo);
          StartInfo.dwFlags      := STARTF_USESHOWWINDOW;
          StartInfo.wShowWindow := SW_SHOWMINIMIZED;
          sMyBat  :='c:\rdp\scd.rdp';
          UniqueString(sMyBat);
          createOK := CreateProcess(Nil,pchar(sMyBat),Nil, Nil, false,
                              CREATE_NEW_PROCESS_GROUP+HIGH_PRIORITY_CLASS,
                              NIL, NIL, STARTINFO, PROCINFO);