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

Вниз

winexec( net use LPT1: las oki ,SW_hide );   Найти похожие ветки 

← →
denis24   (2003-12-18 13:05) [0]

Пока это отработает данные уже будут посланы на лпт,который локальный.
Как притормозить все прогу да окончания сабжа?

---

← →
serge   (2003-12-18 13:07) [1]

WinExec - > CreateProcess(....)

---

← →
denis24   (2003-12-18 13:16) [2]

Да неплохо...
Но в createprocess стока параметров.
А можно пример вызова.

---

← →
serge   (2003-12-18 13:18) [3]

Вот функция которую использовал я как-то,
может мастера посоветуют что-то лучшее


Function ExecutaSiAsteapta(LinieDeComanda: String; Vizibilitate: Integer): LongInt;
Var
zAppName: Array[0..512] Of Char;
zCurDir: Array[0..255] Of Char;
WorkDir: String;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
Begin
StrPCopy(zAppName, LinieDeComanda);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Vizibilitate;
If Not CreateProcess(Nil, zAppName, Nil, Nil, false, CREATE_NEW_CONSOLE Or NORMAL_PRIORITY_CLASS,
Nil, Nil, StartupInfo, ProcessInfo) Then
Result := -1
Else
Begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, DWORD(Result));
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
End;
End;


---

← →
REA   (2003-12-18 13:19) [4]

Мне почему-то кажется, что есть аналог Net Use в API.

---

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

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

Наверх

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