winexec no me ejecuta un .lnk
 

Buenas tengo esto

cadena := Path + 'IniciarExe.lnk';

try
WinExec(PChar(cadena), SW_SHOWNORMAL );
except
showmessage('Debe tener configurado XXX');
end


Buenas estoy intentando ejecutar algo como esto y no me salta la excepción pero no veo que me ejecute el ejecutable.

Si cojo la ruta c:\ruta\IniciarExe.lnk desde ejecutar de windows abre perfectamente el exe.

gracias radge

WinExec hace mucho ha sido marcado como deprecated, intenta con ShellExecute

Gracias así lo hize...

Yo es que aun me hacen programar en delphi 5 en el curro :P

salu2 radge

Como ultimo recurso siempre puedes importas la función asi:

Código Delphi [-]
PShellExecute= function(
    hwnd: THandle;
    pOperation, lpFile, lpParameters, lpDirectory: PCHAR;
    nShowCmd: integer
):  LongWord;  stdcall;

var
ShellExecute: PShellExecute;

begin
ShellExecute:= GetProcAddress(LoadLibrary('shell32.dll'), 'ShellExecuteA');
// Y usarla:
ShellExecute(0, 'open', 'C:\Utilidades Administrativas',0,0, SW_SHOW);

Saludos.

Si tan solo hubieras mirado unos cuantos hilos mas abajo ubieras encontrado este.;)
Saludos...:)