Fórum como mudar o nome da imagem #267774

Use SysUtils;
PathOrigem pathDestino
RenameFile(´c:\teste.bmp´,´c:\projetos\aviso.bmp´);
Ele irá mover o arquivo para o pathDestino com o nome desejado

Prezado amigo,

O Nando deu uma boa sugestão (inclusive eu desconhecia essa) mas você poderia usar um SavePictureDialog (já com opção para salvar em extensões de imagens conhecidas - bmp, wmf, etc), por exemplo. Utilize o código abaixo.

procedure TForm1.BtnSalvarImagemClick(Sender: TObject);
begin
if [color=red:7ccebf6224]SaveDialog1[/color:7ccebf6224].Execute then (você pode substituir pelo componente SavePictureDialog}
begin
Image1.Picture.SaveToFile([color=red:7ccebf6224]SaveDialog1[/color:7ccebf6224].FileName);
end; //if
end; //procedure

Espero ter ajudado.

Leo

Valeu!!!!!