IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Запуск файла из делфи, какая функщия это делает???
$ad!st
сообщение 10.05.2005 13:31
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской

Репутация: -  0  +


мне надо чтоб моя прога в определённое время запускала файл с локального диска, подкажите как это сделать....
я пытаюсь юзать апи функцию ShellExecut

ShellExecute(HANDLE, 0, '"C:\Program Files\Winamp\winamp.exe"',
'"D:\Music\KoЯn\Untouchables\korn-thoughless.mp3"',nil,0);

но мне нужна возможность выбора открываемого файла
ShellExecute(HANDLE, 0, '"C:\Program Files\Winamp\winamp.exe"',
OpenDialog1.FileName,nil,0);

а FileName недопустимо в данном случае.....

может есть другая возможность запуска внешнего файла, если да то какая???


--------------------
когда в руках молоток, все кажутся гвоздями
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
$ad!st
сообщение 10.05.2005 16:13
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской

Репутация: -  0  +


УРААААААА!!!!!!!работает, только не так как надо...но всёравно спасибо


--------------------
когда в руках молоток, все кажутся гвоздями
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
kominet
сообщение 12.03.2007 15:43
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Запарился уже с этим ShellExecute... в общем проблемма в следущем... на форме есть кнопа которая отвечает за открытие документа в ворде(путь до документа в переменной) есть ещё опенДиалог который никакого отношения к этой всей фигне отношения не имеет НО ShellExecute начинает возвращать значение 2(что меньше 32 и говорит об ошибке если я правильно понимаю) как только я хотябы раз воспользуюс опен диалогом... а до этого всё ОК... Гуру подскажите в чём могут быть грабли?
вот кусок проги:

procedure TADDKandidateForm.SB2Click(Sender: TObject);
begin
if OD.Execute then
begin
FilePath:=OD.FileName;
FileName:=ExtractFileName(FilePath);
FilePathEdit.Text:=FileName;
end;
end;

procedure TADDKandidateForm.OpenButtonClick(Sender: TObject);
var h:HWND;
begin
ShellExecute(h,PChar('open'),PChar(ResumeImage),nil,PChar('ResumeFolder\'),SW_ShowNormal);
end;


переменная ResumeImage:string; если что...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 16:58
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"