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