hi leutz ;D
will ein Programm schreiben was bmps zu jpegs umwandelt und dann aufm desktop speichert. wäre super wenn ich dafür mehrere Dateien(bmps) auswählen koennte(in einem ordner) und dann im kontextmenue (rehtsklick drauf) diese mit hilfe des Programms in jepgs umwandeln koennt. weis aber nciht wie das mit dem kontextmenü und dessen einbindung geht. bin soweit das ich konvertieren kann.
Delphi-Quellcode:
procedure BmpToJpeg(const Filename: String);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
try
bmp.LoadFromFile(Filename);
jpeg:=TJPEGImage.Create;
try
jpeg.Assign(bmp);
jpeg.SaveToFile(ChangeFileExt('c:\screenshots' + Filename, '.jpeg'));
finally
jpeg.free;
end;
finally
bmp.free;
end;
end;