Как открыть файл в delphi 7?

1
2
3
4
5
6
7

uses ShellAPI
...
var FileName: string;
begin
	FileName:= 'Полный путь к файлу';
	ShellExecute(Handle, 'open',  PChar(FileName), nil, nil, SW_SHOWNORMAL);
end;