мне надо чтоб моя прога в определённое время запускала файл с локального диска, подкажите как это сделать....
я пытаюсь юзать апи функцию 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);
ShellExecute или WinExec ...
http://forum.pascal.net.ru/index.php?showtopic=4414&view=findpost&p=37611
мне нужна возможность выбора открываемого файла с помощью OpenDialog
Ну, так переведи String в PChar:
Pchar(s) ... и передавай в процедуру
УРААААААА!!!!!!!работает, только не так как надо...но всёравно спасибо
Запарился уже с этим 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;
volvo
Сенькью вери матч... как раз в этом прикол и был... просто добавил
SetCurrentDir(ExtractFileDir(Application.ExeName));