Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event( VK_SHIFT, 0, 0, 0 );
ShellExecute(0, 'open','http://platonov-andrei.narod.ru/Delphi/FuncAPI/ShellExecute.htm', nil, nil, SW_SHOW);
keybd_event( VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 );
end;
Admin: Пользуемся тегами!
можно ли как то вместо пути указать переменную и как это сделать, чтобы потом изменив ее значение я мог бы изменить все ссылки сразу: пример: есть путь D:\Фильмы
В переменную надо занести "D:\Фильмы" и приплюсовать имя файла, например "видео1.avi".