В код программки добавил при нажатии на кнопку открыть или закрыть перезапуск программы. При перезагрузке программы она отключается от дисковода и дает открыть диск (выполнить авто запуск).
код перезапуска программы
Код:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
FullProgPath: PChar;
begin
FullProgPath:=PChar(Application.ExeName);
WinExec(FullProgPath,SW_SHOW);
Application.Terminate;
end;
прикрепляю готовую программку