Code uses ShellAPI; // надо добавить этот модуль в секцию uses Code procedure Starting(const FileName: string); begin ShellExecute(0, 'open', PAnsiChar(FileName), nil, nil, SW_SHOWNORMAL); end; Используя эту процедуру, можно запускать файлы и папки (папки по дефолту будут открываться через проводник) Code Starting('C:\123'); // откр. папку "123" на диске C:
|