Abrir programa y mandar imprimir

[Basi]

Hola a todos espero esten bien, entrando en el tema a que tengo mi duda es como mandar imprimir ya una ves que ya este abierto el programa para explicarme bien lo que quiero hacer es despues que habra el pain me lleve a archivo y de hay imprimir me quede en la parte de abril el pain este es mi codigo

Código Delphi [-]
procedure TForm1.PainPanelClick(Sender: TObject);
begin
  ShellExecute (Handle,'open','mspaint.exe', nil, nil,  SW_SHOWNORMAL);
end;

Espero me puedan ayudar o darme uma idea de como hacerlo ah soy nuevo en esto.

[Faust]

Bueno, pues al parecer te falta abrir el archivo, en este caso creo que debes poner la ruta del archivo en el parámetro lpParameters de la función ShellExecute, o en el parámetro lpFile si el archivo de imagen ya está asociado al mspaint, así como la instrucción print, ahí te van los ejemplos:

Si la imagen está asociada a mspaint... sino la imprimirá con el programa asociado

Código Delphi [-]
procedure TForm1.PainPanelClick(Sender: TObject); 
  begin
    ShellExecute (Handle,'print','c:\imagen.bmp', nil, nil,  SW_HIDE);
  end;

De este no estoy seguro, pero debería abrir el archivo e imprimirlo

Código Delphi [-]
procedure TForm1.PainPanelClick(Sender: TObject);
  begin
    ShellExecute (Handle,'print','mspaint.exe', nil, 'c:\imagen.bmp',  SW_SHOWNORMAL);
  end;

Te dejo esto para qe lo cheques http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Basi]

Faust,

Gracias por reponder y dar tus ejemplos en estos momento lo voy a poner a prueba pero me conformaria con que abriera por lo menos el menu de imprimir bueno gracias otra vez

[Basi]

hola a todos disculpen pero no eh dado aun con lo que menciopnado arriba eh estado probando algunas formas y nada si alguien me puede dar otra idea mas clara se lo agradeceria..

[[nlsgarcia]]

Basi,

ShellExecuteEx es la versión extendida de ShellExecute.

Revisa este código:

Código Delphi [-]
function ShellExecute_AndWait(Operation, FileName, Parameter, Directory: string;
                              Show: Word; bWait: Boolean): Longint;
var
  FResult: Boolean;
  Info: TShellExecuteInfo;

begin
  FillChar(Info, SizeOf(Info), Chr(0));
  Info.cbSize := SizeOf(Info);
  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar(Operation);
  Info.lpFile := PChar(FileName);
  Info.lpParameters := PChar(Parameter);
  Info.lpDirectory := PChar(Directory);
  Info.nShow := Show;
  FResult := ShellExecuteEx(@Info);
  if FResult then
  begin
    if bWait then
    begin
      while
        WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT
        do Application.ProcessMessages;
      FResult := GetExitCodeProcess(Info.hProcess, DWORD(Result));
    end
    else
      Result := 0;
  end;
  if not FResult then Result := -1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ShellExecute_AndWait('print','msPaint','d:\image1.bmp','',SW_SHOWNORMAL,False);
end;

Al ejecutar el código anterior se muestra el siguiente mensaje:

This file does not have a program associated with it for performing this action. Please install a program or, if one is already, create an association in the Default Programs control panel.

Conclusión: MsPaint no soporta la impresión vía parámetros, debes buscar un programa que la soporte y luego puedes imprimirlo por medio del siguiente código:

Código Delphi [-]
   ShellExecute(Handle,'print','d:\image1.bmp', nil, nil, SW_SHOWNORMAL);

Espero sea útil

Nelson.

[ecfisa]

Hola Basi.

Para imprimir un archivo de imágen:

Código Delphi [-]
  
  ShellExecute(Handle 'open', 'mspaint', ' /p C:\Carpeta\SubCarpeta\Nombre.JPG', nil, SW_HIDE);

Es necesario que haya un espacio entre el nombre del ejecutable (mspaint) y la línea de comandos, por eso esta debe empezar por uno.

Solamente encontré el switch '/p' para imprimir y '/pt Nombre_impresora' para seleccionar la impresora (este último no lo probé). Pero ninguno que permita presentar el menu de impresión como solicitas en el mensaje #3.

Saludos.