Код
procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
begin
if not SelectDirectory('Select a folder:', '', s) then Form1.Close;
end;
var
s:string;
begin
if not SelectDirectory('Select a folder:', '', s) then Form1.Close;
end;
Он не работает т.к. Form1 появляется после процедуры FormCreate, а раз его нет, то и закрывать нечего. Поэтому даже если пользователь и закроет окно выбора дирректории, прога всё равно появится.
Скажите, пожалуйста, можно ли закрыться другими способами?