2

Tenho um projecto em Delphi 2010 que quando clico em um botão abre um directório, este é o código:

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

Abre isto:

inserir a descrição da imagem aqui

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

2
  • quando você diz pasta, se refere a pasta do Windows?
    – durtto
    Commented 12/10/2016 às 15:29
  • sim pasta do windows, este é o directório dela: "C:\teste"
    – Tmc
    Commented 12/10/2016 às 15:31

1 Resposta 1

3

Existem diversas formas de fazer isto, uma delas é usar a função FindWindow para retornar o identificador da janela através do nome da classe ou título.

Para fechar, você pode usar a função SendMessage e usar o sinal WM_CLOSE para indicar que a aplicação deve ser finalizada.

Veja um exemplo:

procedure TForm1.Button2Click(Sender: TObject);
var
  Janela: THandle;
begin
  Janela := FindWindow(nil, 'teste'); // "teste" é o título da janela
  if Janela > 0 then // Se conseguir encontrar a janela
     SendMessage(Janela, WM_CLOSE, 0, 0);
end;
1
  • 1
    obrigado pela explicação, era isso mesmo que precisava!
    – Tmc
    Commented 12/10/2016 às 15:44

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .