How to close a "folder"

Question

How to close a "folder"

Navigation

#1 by (3 votes)

2

I have a project in Delphi 2010 that when I click on a button opens a directory, this is the code:

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

Open this:

I leave the question, is it possible when I close the project to also close this folder?

delphi cmd

asked by anonymous 12.10.2016 / 17:09

1 answer

Is it possible to grab all the variables in a form at once to send to an email or do I need to declare one at a time? Divs side by side header

score 3 · Accepted Answer

There are several ways to do this, one of which is to use the FindWindow " to return the window identifier through the class name or title.

To close, you can use the SendMessage and use the sign WM_CLOSE to indicate that the application should be terminated.

See an example:

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;