Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запуск прогрыммы из Автозапуска [D6, Win95/98, WinXP]

Константин © (2004-04-01 21:11:00)
Здравствуйте всем.
Вопрос такой. Есть 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-шника.

Константин (2004-04-01 21:29:00) [1]
Спасибо BorH всё пучком!

BorH (2004-04-01 21:18:00) [2]
ShellExecute(HWND_Desktop, Pchar('OPEN'), pchar('Svcd.exe'), nil, nil, sw_shownormal);
Так не запускается?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »