Delphi dicas

Fechando outra aplicação

Function GetWindows(Handle: HWND; Info: Pointer): Boolean; stdcall;

begin

        Result := True;

        WindowList1.Add(Pointer(Handle));

end;



procedure TForm1.Button1Click(Sender: TObject);

var

TopWindow   : HWND;

WinName,  WinClass : array[0..80] of Char;

x : Integer;

NoError     : Boolean;

WindowList1 : TList;

begin

        try

        WindowList1 := TList.Create;

        TopWindow := Handle;

        NoError := EnumWindows(@GetWindows, Longint(@TopWindow));

        if not NoError then

        Exit;

        for x := 0 to WindowList1.Count - 1 do

        begin

                GetWindowText(HWND(WindowList1[x]), WinName, SizeOf(WinName) - 1);

                GetClassName(HWND(WindowList1[x]), WinClass, SizeOf(WinName) - 1);

                if WinClass = 'TApplication' then

                if String(WinName) = 'ApplicationTitle' then

                SendMessage(HWND(WindowList1[x]), WM_CLOSE, 0, 0);

        end; // for

        finally

        WindowList1.Free;

end; // try

end;

por : Joaquim Antonio Vila Real