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 уже запущен, файл должен добавиться в плейлист, окно плеера должно активироваться и он должен начать его воспроизводить, а этого не происходит. В чём может быть проблема? |
Всего записей: 6473 | Зарегистр. 28-01-2008 | Отправлено: 22:12 29-08-2015 | Исправлено: Skif_off, 22:54 29-08-2015 |
|
...
