Skif_off
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SuPriTo Цитата: Прогнал, подумал - подобно AutoIt Код: $timer = TimerInit() ... $time = TimerDiff($timer) | Сделал так: Код: var ... Rlst: LongBool; StartUpInfo: TStartUpInfo; ProcessInfo: TProcessInformation; ... 1: begin begin FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0); with StartUpInfo do begin wShowWindow:=SW_SHOW; end; Rlst:=CreateProcess(PChar(PlayerExe), PChar('\n "'+FileToLoad+'"'), nil, nil, true, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo); if Rlst then with ProcessInfo do begin WaitForInputIdle(hProcess, INFINITE); CloseHandle(hThread); CloseHandle(hProcess); end end; SetWindowPos(ParentWin, 0, -100, -100, 0, 0, SWP_HIDEWINDOW); Result := CallKiller(ParentWin); if Result = 0 then Exit; end; | bInheritHandles пробовал и true, и false, по идее - true. В логе: Код: AmpView.lpr(91,28) Hint: Local variable "StartUpInfo" does not seem to be initialized AmpView.lpr(96,150) Hint: Local variable "ProcessInfo" does not seem to be initialized AmpView.lpr(49,57) Hint: Parameter "ShowFlags" not used AmpView.lpr(23,3) Note: Local variable "Lister" is assigned but never used AmpView.lpr(25,3) Note: Local variable "CmdLine" not used AmpView.lpr(28,11) Hint: Local proc "DebugMessage" is not used Проект "AmpView" успешно собран | Запускается без задержек, круто, но есть проблема: при вызове функции если PlayerExe уже запущен, файл должен добавиться в плейлист, окно плеера должно активироваться и он должен начать его воспроизводить, а этого не происходит. В чём может быть проблема? | Всего записей: 6485 | Зарегистр. 28-01-2008 | Отправлено: 22:12 29-08-2015 | Исправлено: Skif_off, 22:54 29-08-2015 |
|