Форум: "Начинающим";
Текущий архив: 2016.02.14;
Скачать: [xml.tar.bz2];

Вниз

Createprocess как запустить приложение с параметрами   Найти похожие ветки 

← →
FIL-23   (2014-07-14 08:24) [0]

Доброго дня.

Раньше запускал приложение через 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
Спасибо

---

← →
MBo ©   (2014-07-14 08:51) [1]

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

---

← →
megavoid ©   (2014-07-14 11:59) [2]

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;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2016.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.002 c