выше в комментах, основное вам уже ответили, вот еще процедура, в w10 работает (с учетом #0, еще string как вариант на ansistring заменить мона)
Procedure GuErr(const s:string);
begin
MessageBox(0,PChar(s),'Ошибка',Mb_ok+Mb_IconError+Mb_TopMost);
end;
Procedure GuRun(s:string;p:string='';d:string='');
var i:integer;
begin
if s='' then Exit;
Try
i:=ShellExecute(0,'open',pchar(s),pchar(p),pchar(d),SW_NORMAL);
if i<=32 then application.MessageBox(pchar('Code: '+pchar(inttostr(i)+', for '+d+s+' '+p)),'Error',mb_iconerror);
Except on e:exception do GuErr(e.Message);End;
end;
пример
GuRun('http://ya.ru');
GuRun('calc.exe');
GuRun('notepad.exe');
p,d необязательные параметры, см справку к ShellExecute - директория и параметры.
заметьте, {if s='' then Exit;} тут нет {if not fileexist(s) then exit;} - тут зарыта более глубока проблема - с запуском x64 приложений и др ...
+
http://www.gunsmoker.ru/2015/01/never-use-ShellExecute.html
+
найти не могу
но "некоторые приложения не запускаются", как решение - добавление в процедуру в начало и конец строк, в заголовок r + соотв. процедуры в заголовок файла
//if IsWow64 then if r then Wow64DisableWow64FsRedirection(x);
....
//if IsWow64 then if r then Wow64EnableWow64FsRedirection(true);
#0
и с первого елемента pchar делайте.link := 'https://ya.ru'#0;
, как уже было выше написано