[U.B.M.]

Доброго времени суток!

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'C:\Program Files\Softland\doPDF 7\dopdf.exe', nil, nil, SW_SHOWNORMAL);
end;

жму ctrl+F9 - ошибок нет, но project.exe не создается.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'C:\Program Files\Softland\doPDF 7\dopdf.exe', nil, nil, SW_SHOWNORMAL);
  WinExec('C:\Program Files\Softland\doPDF 7\dopdf.exe', SW_SHOWNORMAL);
end;

работает - ожидаемо 2 раза открывает.

В чём косяк в первом коде?

[Alegun]

Проверил несколько раз с блокнотом, всё собирается и работает. Возможно из вилки ShellExecuteA и ShellExecuteW выбирается не то, что нужно и в функцию заходит абракадабра вместо названия файла из-за разницы в кодировке или типе. Как вариант, использовать принудительное указание типа

Код:

ShellExecute(Handle, 'open', PChar('C:\Program Files\Softland\doPDF 7\dopdf.exe'), nil, nil, SW_SHOWNORMAL);

[U.B.M.]

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

...выбирается не то, что нужно и в функцию заходит абракадабра вместо названия файла из-за разницы ...

Да в том-то и дело, что выбирается как-бы то что нужно... Ведь во втором случае ShellExecute работает нормально без PChar.

При этом PChar неожиданно помог в первом случае.

[M.A.D.M.A.N.]

Код:

ShellExecute(Handle, PChar('open'), PChar('C:\Program Files\Softland\doPDF 7\dopdf.exe'), nil, nil, SW_SHOWNORMAL);

На всякий и PChar('open').

[Alegun]

Сообщение от U.B.M.

...Ведь во втором случае ShellExecute работает нормально без PChar...

В справке указывается на то, что строка должна заканчиваться на ноль, похоже, в этом дело и то, что работает во втором случае, чисто случайность. Вероятно можно ещё к строке нуль дописывать

Код:

'C:\Program Files\Softland\doPDF 7\dopdf.exe'+#0

[U.B.M.]

Проверил следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //do something
  ShellExecute(Handle, 'open', {PChar(}'C:\Program Files\Softland\doPDF 7\dopdf.exe'{)}, nil, nil, SW_SHOWNORMAL);
end;

Тоже работает. Видимо глюк непонятный был. ПолтерГейтс прям какой-то

[angvelem]

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

... Вероятно можно ещё к строке нуль дописывать

String и так всегда заканчивается 0, исключение ShortString.

[Alegun]

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

String и так всегда заканчивается 0...

Так в том то и дело, что "закавыристый" текст в делфийском редакторе ('C:\') это не string и как его интерпретирует компилятор, только ему одному и известно. Вроде добавление нуля должно помочь.

[M.A.D.M.A.N.]

Код:

stroka db 'Stroka s tekstom', 0
...
invoke ShellExecute [Handle], open_str, stroka, 0, 0, SW_SHOWNORMAL