Текущий архив: 2004.01.05;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.139 c
