1

Delphi XE 7 В общем есть код который работает и на win 7 и на win 10

shellExecute(self.Handle,'open','https://yandex.ru',nil,nil,SW_SHOWMAXIMIZED);

Но есть нужда открывать URL которые хранятся в переменной, делаю к примеру так:

link := 'https://yandex.ru';
shellExecute(self.Handle,'open',pchar(link),nil,nil,SW_SHOWMAXIMIZED);

На Win 7 срабатывает как надо, открывает браузер по указанному в link пути, Win 10 просто игнорирует, подскажите что можно сделать? Пробовал ShellExecuteEx, не помогло, он тупо считает что я пытаюсь открыть файл и говорит, что он не найден

10
  • 1
    Вам нужно использовать ASCIIz прибавляйте #0 и с первого елемента pchar делайте.
    – nick_n_a
    27 апр 2017 в 11:38
  • какой тип у переменной link? Не shortstring случайно?
    – kami
    27 апр 2017 в 12:10
  • "lpFile - A pointer to a null-terminated string that specifies the file" © MSDN -> link := 'https://ya.ru'#0;, как уже было выше написано
    – teran
    27 апр 2017 в 13:09
  • @teran в этом нет необходимости. Явное приведение string к PChar, а равно и использование @link[1] - уже делает передаваемый параметр корректной нуль-терминированной строкой. Без необходимости явного добавления #0.
    – kami
    27 апр 2017 в 13:15
  • Для начала, кстати, можно получить код ошибки, который вернет ShellExecute
    – kami
    28 апр 2017 в 11:50

1 ответ 1

-1

выше в комментах, основное вам уже ответили, вот еще процедура, в 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);
7
  • еще string как вариант на ansistring заменить мона - не давайте деструктивных советов. Кастование AnsiString в PWideChar (учитываем, что работа ведется в XE7) пройдет на ура, но вот ничего хорошего из этого не выйдет.
    – kami
    28 апр 2017 в 8:44
  • @Gu К сожалению не помог GuRun в Win 7 норм открывает, в Win 10 выдает Code 2 для URL 28 апр 2017 в 12:01
  • ERROR CODE 2 - "The specified file was not found". 28 апр 2017 в 12:11
  • 2
    Все народ, разобрался, проблема была в том, что семерошному эксплореру плевать на лишние пробелы в URL! А EDGE браузер в 10 нет. По отладчику посмотрел внимательно, что у меня приходит в info_link и заметил пробел лишний, добавил info_link:=trim(info_link); и стало норм. Кто столкнется с такой же проблемой рекомендую проверить внимательно переменную! 30 апр 2017 в 6:19
  • 3
    Пожалуйста, замените посыл в гугл на прямую ссылку на документацию. Если по ссылке на ваш блог есть что-то важное - перенесите это прямо в ответ. Иначе ответ удалят как спам.
    – user177221
    3 мая 2017 в 12:43

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.