Вопрос по OpenDialog

[swoy45]

Интересует такой вопрос: можно ли как-то в OpenDialog при открытии разных типов файла из фильтра выполнять разные действия? Я имею в виду для каждого типа файла соответственное действие.
Для этого мне приходиться делать две кнопки, для двух типов файлов:

procedure TMainForm.aOpenMapExecute(Sender: TObject);
begin
 OpenDialog.Filter := 'WAD Maps (*.wad)|*.wad|All files (*.*)|*.*';

 if OpenDialog.Execute then OpenMap(OpenDialog.FileName);
end;

procedure TMainForm.aOpenINIExecute(Sender: TObject);
begin
 OpenDialog.Filter := 'INI Maps (*.ini)|*.ini|All files (*.*)|*.*';

 if OpenDialog.Execute then
 begin
  FullClear();

  pLoadProgress.Left := (RenderPanel.Width div 2)-(pLoadProgress.Width div 2);
  pLoadProgress.Top := (RenderPanel.Height div 2)-(pLoadProgress.Height div 2);
  pLoadProgress.Show;

  LoadMapOld(OpenDialog.FileName);

  MainForm.Caption := Format('%s - %s', [FormCaption, ExtractFileName(OpenDialog.FileName)]);

  pLoadProgress.Hide;
  MainForm.FormResize(Self);
 end;
end;

[ByAlex]

Если я вас правильно понял, то пробуйте так - после того как вы выбрали файл в opendialog, считайте его расширение и по расширению файла выбирайте нужное для него действие.

[Аватар]

Что мешает в одной процедуре по расширению выбранного файла управлять дальнейшим ходом событий?

[Кольша]

можно проверять

var
i:integer;
begin
opdlg.Execute;
for i:=0 to opdlg.Files.Count-1 do begin
if ExtractFileExt(opdlg.Files.Strings[i])='.ini' then
showmessage('Файл настроек');

end;

end;

[swoy45]

Аватар, один из файлов является текстовым файлом настроек, другой - архивом. Их по любому нужно обрабатывать по-разному.
Кольша, спс, но мне нужно не showmessage, а команда, посылаемая на другую процедуру. А так это как раз то, что надо.

[Кольша]

спасибо сюда