Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Запуск прогрыммы из Автозапуска   Найти похожие ветки 

 
Константин   (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 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
9-1073380242
chuckloon
2004-01-06 12:10
2004.05.23
Как сделать спрайты?


14-1083216629
Yar-Com
2004-04-29 09:30
2004.05.23
Не пойму что с головой происходит.....


1-1083828264
tararasyk
2004-05-06 11:24
2004.05.23
преобразовать BMP в 16 цветов(оттенки серого)


8-1078930743
M@D
2004-03-10 17:59
2004.05.23
DelphiX


7-1082015905
Ozone
2004-04-15 11:58
2004.05.23
И снова Web-камера