Оператор,что бы открыть файл?

[Vasiy_V]

Пацаны подскажите оператор на делфи что бы открывать файл при нажатии кнопки :)

[aTeos]

uses Windows, Messages, <...>, ShellAPI;

<...>

procedure TForm1.Button1Click(Sender: TObject);

var

  fName, fParams, fDir: string;

begin

fName := '"c:\windows\explorer.exe"'; // путь к запускаемой проге

fParams := '""'; // параметры, передаваемые программе

fDir := '"c:\windows\"'; // текущий каталог для проги

// Запускаем

ShellExecute(Application.Handle, 'open', PChar(fName), PChar(fParams), PChar(fDir), SW_SHOWNORMAL);

end;

[Vasiy_V]

Большое спосибо! :D

Добавлено : [mergetime]1087057858[/mergetime]

fParams := '""'; // параметры, передаваемые программе

А ,что за параметы? :D

[aTeos]

Для примера создай в диске C:\ файл какой-нибудь наример text.txt а потом нажми Пуск-Выполнить -> notepad.exe c:\text.txt -> OK.

Вот тут notepad.exe - это программа, а c:\text.txt - параметр, передаваемый ей.

Короче говоря, если он тебе не нужен, то оставь его пустым. Т.е. две двойные кавычки в одинарных - '""'.

P.S. пажалста :D

[mmap]

Всё хорошо, но я рекомендую пользоваться функцией CreateProcess.

[Vasiy_V]

Спосибо Ещё раз :)

[aTeos]

kolya7k

CreateProcess

Ух ты блин прикольная функция. Но по-любому для этого топика и ShellExecute хватит :)