Как сделать внешние ссылки

[HostFrost]

Здраствуйте!
Столкнулся с проблемой.
Как можно сделать на картинке внешнюю ссылку например на .html .ppt .doc и тому подобные файлы.

[Аватар]

Картинка в Image? В событии OnClick использовать ShellExecute

[grom333]

Как пример:

procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute(0,'Open',pchar(<путь к программе>),PChar(<имя файла>),nil,1);
end;

в Uses добавь ShellApi

[HostFrost]

Сообщение от grom333

Как пример:
procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute(0,'Open',pchar(<путь к программе>),PChar(<имя файла>),nil,1);
end;

в Uses добавь ShellApi

Был бы благодарен если бы вы написали и пример "(<путь к программе>)" и "(<имя файла>)"

Я просто новичек в этом деле)

[grom333]

Вот Вам полегче код:

procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, 'c:\ATsvcLog.txt', nil, nil, SW_RESTORE);
end;

[HostFrost]

Сообщение от grom333

Вот Вам полегче код:

procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, 'c:\ATsvcLog.txt', nil, nil, SW_RESTORE);
end;

Спасибо все работает! =)

Вот ище 1 вопрос:
Если я закину все файлы в папку с программой которую я сделал и пропишу все пути к файлам правельно, и после этого я скину программу на диск и запущу с другого ПК будут ли работать ссылки?

[Andrey770]

Если ваша программа находиться в какой-либо папке то просто можно

ShellExecute(Handle, 'open', '<название вашего файла>',nil, nil, SW_SHOW);

то есть не указывать путь типа С:\

[Shouldercannon]

так вообще крутбл

ShellExecute(Handle, 'open', PChar(ExtractFilePath(Application.ExeName) + '<имя файла>'), nil, nil, SW_SHOW);