ShellExecuteEx, компилятор не может понять что и куда

[Tango]

Функция ShellExecuteEx, при попытке использовать, компилятор не поймёт какую брать, пишет:
Can't determine which overloaded function to call

Код: Выделить всё

Function ShellExecuteExA(lpExecInfo: LPSHELLEXECUTEINFOA):Bool;external shell32 name 'ShellExecuteExA';
Function ShellExecuteExW(lpExecInfo: LPSHELLEXECUTEINFOW):Bool;external shell32 name 'ShellExecuteExW';
{$ifndef UNICODE}
Function ShellExecuteEx(lpExecInfo: LPSHELLEXECUTEINFOA):Bool;external shell32 name 'ShellExecuteExA';
{$else}
Function ShellExecuteEx(lpExecInfo: LPSHELLEXECUTEINFOW):Bool;external shell32 name 'ShellExecuteExW';
{$endif}

Даже с условной компиляцией. Если пишу явно ShellExecuteExA, всё нормально.

Win 8.1, Lazarus32 1.2.6 FPC 2.6.4.

[wavebvg]

Посмотрите внимательнее. У Вас в другом месте есть лишнее объявление.
Уберите

Код: Выделить всё

Function ShellExecuteExA(lpExecInfo: LPSHELLEXECUTEINFOA):Bool;external shell32 name 'ShellExecuteExA';
Function ShellExecuteExW(lpExecInfo: LPSHELLEXECUTEINFOW):Bool;external shell32 name 'ShellExecuteExW';

[Tango]

Это не у меня, это модуль ShellApi.pp.
И где тут лишнее объявление?

[Лекс Айрин]

Tango, да все там правильно... другое дело, что сам компилятор не понимает какую ветку выбрать.

[Vapaamies]

другое дело, что сам компилятор не понимает какую ветку выбрать.

В этом случае или режим {$T+} должен помочь, или ручное приведение типа. В коде как функция вызывается?

[Tango]

Хромым костыли должны помочь или передвижение на коляске.

Всё это громоздко, всмотритесь в код, там как раз всё прозрачно, но компилятору всё равно даётся прозрачный намёк. Значит должно помочь подправление кода
ShellApi.pp.