[makgrec]

В код программки добавил при нажатии на кнопку открыть или закрыть перезапуск программы. При перезагрузке программы она отключается от дисковода и дает открыть диск (выполнить авто запуск).
код перезапуска программы

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 FullProgPath: PChar;
begin
 FullProgPath:=PChar(Application.ExeName);
 WinExec(FullProgPath,SW_SHOW);
 Application.Terminate;
end;

прикрепляю готовую программку