Close Others Application

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  MyHandle:=FindWindow(nil, 'Delphi Help');
  SendMessage(MyHandle, WM_CLOSE, 0, 0);
end;

Delphi FAQ

This blog is used to give information about Borland Delphi Programming. The content of this blog is multi difficulty, because everybody that like programming have a different level.I hope this blog can help everybody.

If there is an idea, send to fset2006@gmail.com