Delphi заготовки

теперь у нас есть  программа которая добавляет новый пункт в меню при щелчке на фалы с заданным разрешением. кроме того при щелчке на данные файлы происходит вызов программы appname.exe c параметрами в виде списка файлов

теперь напишем программу конвертации
 
1. Добавим на форму компонент TCheckListBox для выбора
2. напишем процедуру загрузки списка файлов из нашей dll



procedure TForm1.FormCreate(Sender: TObject);
var
  cmd : string;
  i : Integer;
  pr,dir:string;

begin
  // Показ этих параметров - обратите внимание, что 0-ой параметр это
  // выполняемая команда в Windows
  // получаем список файлов в TCheckListBox
  dir:=ParamStr(2);
  for i := 3 to ParamCount do begin
     pr:=ParamStr(i);
     if pr<>'' then  if pr[1]='*' then begin pr:=dir+copy(pr,2,length(pr)); end;
     form1.CheckListBox1.Checked[form1.CheckListBox1.Items.Add(pr)]:=true;
  end;

end


из наших примеров  возьмем функции

uses jpeg;

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

procedure BMPToJPEG(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  bmp := Tbitmap.Create;
  jpeg := TJPEGImage.Create;
  try
    bmp.LoadFromFile(FileName);
    try
      jpeg.Assign(bmp);
      jpeg.CompressionQuality := 100; {Default Value}
      jpeg.SaveTofile(ChangeFileExt(FileName, '.jpg'));
    finally
      bmp.Free;
      jpeg.Free;
    end;
  finally

  end;
end;

теперь добавим выбор возможности конвертации
с помощью компонента  TCombobox
Добавим в свойство Items 

*.jpg
*.bmp
и выставим  form1.ComboBox1.ItemIndex:=0  - тип выходных файлов по умолчанию  JPG