Создание dll

[John_chek]

Как написать, чтобы dll открывала диалоговое окно??

[John_chek]

Написал так:

procedure OpenDialog(Sender: TObject); stdcall;
var
  oD : TOpenDialog;    // Переменная OpenDialog
begin
  oD := TOpenDialog.Create(self);
  oD.InitialDir := GetCurrentDir;
  oD.Options := [ofFileMustExist];
  if oD.Execute
  then ShowMessage('File : '+oD.FileName)
  else ShowMessage('Открытие файла остановлено');

  oD.Free;

end;
exports OpenDialog;

Сразу после 1-го begina выдает ошибку, типа не знаю что такое self! А действительно откуда ему знать, если это dll библиотека?? как выйти из положения??

[Stilet]

Попробуй так : oD := TOpenDialog.Create(sender);
А там где вызывается этот код напиши OpenDialog (Form1);

[John_chek]

sender тоже нет, попрбовал так вроде работает:

...
var
  w : TForm;
 oD := TOpenDialog.Create(w);
...