boa tarde,

tenho um projecto em delphi 2010 que quando clico em um botão abre um directório, este e o código: 

    DirFolder := 'C:\teste';
    ShellExecute(Handle, 'open', PChar(DirFolder), nil, nil, SW_SHOWNORMAL);

Deixo a questão, é possível quando fechar o projecto também fechar essa pasta?