winexec no me ejecuta un .lnk

[radge]

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

[droguerman]

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

[radge]

Empezado por droguerman

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

[[escafandra]]

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.

[rgstuamigo]

Empezado por radge

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

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