Abrir programa y mandar imprimir

[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