Форум: "WinAPI";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
ВнизЗапуск прогрыммы из Автозапуска Найти похожие ветки
← →
Константин (2004-04-01 21:11) [0]Здравствуйте всем.
Вопрос такой. Есть CD диск который при автозапуске запускает процесс, написанный на Delphi 6. Этот процесс запускает *.swf файл
ShellExecute(HWND_Desktop, Pchar("OPEN"), pchar("Svcd.swf"), pchar("shel32, Control_Rundll32"), "", sw_shownormal);
и, затем, меняет заголовок окно Flash проигрывателя в панели задач (та что в самом низу), на необходимое название
while flag do
begin
h:=findwindow(nil, "Macromedia Flash Player 6");
if h<>0 then
begin
SetWindowText(h, " ООО Пупкин");
flag :=false;
end
else
begin
//Делаю задержку в 100 мс.
h1:=CreateEvent(nil, true, false, "");
WaitForSingleObject(h1, 1000);
CloseHandle(h1);
end;
end;
Проблема в следующем, диск расчитан на проигрывание на разных ПК, в том числе и на тех, на которых нет Flash проигрывателя. Выход есть, если Экспортировать ролик в Win exe файл вместе с проигрывателем, но exe-шник, в отличии от swf не запускается, вернее запускается пустое окно проигрывателя без ролика, а сам проигрыватель начинает ломиться в и-нет. Подскажите в чём дело, и как решить проблему с запуском exe-шника.
← →
BorH © (2004-04-01 21:18) [1]ShellExecute(HWND_Desktop, Pchar("OPEN"), pchar("Svcd.exe"), nil, nil, sw_shownormal);
Так не запускается?
← →
Константин (2004-04-01 21:29) [2]Спасибо BorH всё пучком!
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.045 c