Sintaxis de ShellExecuteEx

[JuanOrtega]

Hola estoy buscando la sintaxis de la funcion ShellExecuteEx y no la encuentro en google ,estoy tratando de usar la misma funcion ShellExecute a ShellExecuteEx pero me da error.

El codigo :

Código Delphi [-]
    ShellExecute(0, 'open', PChar('c:/xampp/htdocs/t.jpg'), nil, nil,
      SW_SHOWNORMAL);

    ShellExecuteEx(0, 'open', PChar('c:/xampp/htdocs/test.jpg'), nil, nil,
      SW_SHOWNORMAL);

El error :

Código Delphi [-]
[DCC Error] test.dpr(15): E2034 Too many actual parameters

¿ Que estoy haciendo mal en la sintaxis ?

[ecfisa]

Hola Lepuke.

La sintáxis podes encontrarla aquí: ShellExecuteEx function

Un ejemplo de uso en Delphi:

Código Delphi [-]
...
implementation

uses ShellApi;

procedure OpenJPG(const aName: TFileName);
var
  ExecInfo: SHELLEXECUTEINFO;
begin
  ZeroMemory(@ExecInfo, SizeOf(SHELLEXECUTEINFO));
  ExecInfo.cbSize := SizeOf(SHELLEXECUTEINFO);
  ExecInfo.fMask  := SEE_MASK_NOCLOSEPROCESS;
  ExecInfo.Wnd    := 0;
  ExecInfo.lpVerb := 'open';
  ExecInfo.lpFile := PChar(aName);
 // pExecInfo.lpParameters := ...
  ExecInfo.nShow  := SW_SHOWNORMAL;
  if not ShellExecuteEx(@ExecInfo) then
    if GetLastError <= 32 then
      SysErrorMessage(GetLastError)
end;

// Uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenJPG('C:\imagen.jpg');
end;

Saludos

[JuanOrtega]

Funciona perfecto ,gracias por la ayuda.

[JuanOrtega]

Perdon ecfisa por responder un tema viejo pero queria preguntarte como seria esta funcion para realizar el comando : print d:/test.txt , que es para imprimir.

Las lineas que cambie son :

Código Delphi [-]
ExecInfo.lpFile := 'print';
ExecInfo.lpParameters := 'd:/test.txt';
ExecInfo.lpVerb := '';

¿ Puse mal los parametros ?

[ecfisa]

Hola.

Intenta de este modo:

Código Delphi [-]
uses ShellApi;

....
var
  ExecInfo: SHELLEXECUTEINFO;
begin
  ZeroMemory(@ExecInfo, SizeOf(SHELLEXECUTEINFO));
  ExecInfo.cbSize := SizeOf(SHELLEXECUTEINFO);
  ExecInfo.fMask  := SEE_MASK_NOCLOSEPROCESS;
  ExecInfo.Wnd    := 0;
  ExecInfo.lpVerb := 'print';  // acción a realizar
  ExecInfo.lpFile := 'C:\Nombre_Carpeta\Nombre_Archivo.txt';  // ruta+archivo a imprimir
  ExecInfo.lpParameters := '';
  ExecInfo.nShow        := SW_SHOWNORMAL;
  if not ShellExecuteEx(@ExecInfo) then
    if GetLastError <= 32 then
      SysErrorMessage(GetLastError)
end;

Saludos

[Casimiro Noteví]

Esto no tiene nada que ver con el tema, crea un hilo nuevo, gracias.

Empezado por Lepuke

Hola

[JuanOrtega]

Es la misma funcion y el mismo codigo pero bueno ahora creo un nuevo tema , gracias por borrar el mensaje.

[Casimiro Noteví]

Empezado por Lepuke

cuando cargo un archivo cualquiera que estan ocultos ya sea una imagen o cualquier programa carga la imagen bien pero despues de eso tilda toda la aplicacion ya sea grafica o consola , eh estado haciendo pruebas y solo pasa cuando el archivo esta oculto

Obviamente, no tiene nada que ver, aunque ambos casos sean un coche de cuatro ruedas y de color rojo, pero en uno es cómo se usa, y en tu caso es un problema puntual con el motor.
Gracias