| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Createprocess как запустить приложение с параметрами [D7]

FIL-23 ©   (2014-07-14 08:24:00) 

Доброго дня.

Раньше запускал приложение через ShellExecute

perParam:=
     '$user='+''''+ perUSER +'''' +#10#13+
     '$pass='+''''+ perPASS +'''' +#10#13+
     '$comp='+''''+ perCOMP +'''' +#10#13+
     'cmdkey /generic:"TERMSRV/$comp" /user:"$user" /pass:"$pass"' +#10#13+  
     'mstsc /v:'+'$comp'+#10#13;      

  ShellExecute(0,nil,'Powershell.exe',pchar(perParam),nil,1);


Тут передавал в powershell логин пароль и ip адрес , и запускал mstsc с этими параметрами.

Как это реализовать в Createprocess
Спасибо

---

megavoid   (2014-07-14 11:59:00) [1]

function 111(const FileName, Params: ShortString): boolean;
var
 StartInfo: TStartupInfo;
 ProcInfo: TProcessInformation;
 S: String;
begin
 S := FileName + ' ' + Params;
 FillChar(StartInfo, SizeOf(StartInfo), #0);
 with StartInfo do
 begin
   cb := SizeOf(StartInfo);
   dwFlags := STARTF_USESHOWWINDOW;
   wShowWindow := SW_SHOW;
 end;
 Result := CreateProcess(nil, PChar( String(S) ), nil, nil, false,
                         CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                         PChar(ExtractFilePath(Filename)), StartInfo, ProcInfo);
 // do not forget to cleanup and close handles etc for long happy runs
end;

---

MBo   (2014-07-14 08:51:00) [2]

А какая разница?
BOOL WINAPI CreateProcess(
 LPCTSTR lpApplicationName,
 LPTSTR lpCommandLine,
....

---

Наверх