Как программно запустить ярлык?
uses
..., ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute( Handle, 'Open', 'C:\NOTEPAD.lnk', nil, nil, SW_SHOWNORMAL );
end; |
