Close on application from another application 1

[GCTIberica]

Hi
Does anyone know how to close one application from another application? I don´t want to kill the process - what I would like to do is for the application to do whatever it has to do on the OnClose event before it is closed!

Thanks in advance

 

[LucieLastic]

hi

Have at look at my example code in thread102-610666, this sends a WM_CLOSE message to the app - The app should then perform any necessary close routines before exiting.

lou

 

[GCTIberica]

Hi
Perhaps a really stupid question, but the line of code
EnumWindows(@EnumerateWindows,0);
will not run.
It says : Variable required
Do you know why?
Thanks

 

[LucieLastic]

Did you put the function declaration in the Interface part of the unit?

function EnumerateWindows(hWnd: HWND; lparam:LPARAM):Bool; stdCall;

 

[LucieLastic]

..did you get it working?

 

[GCTIberica]

Hi
Sorry-wasn´t working yesterday afternoon!
I haven´t got it working... this is what I have done!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
function EnumerateWindows(hWnd: HWND; lparam:LPARAM):Bool; stdCall;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumerateWindows,0);
end;

function TForm1.EnumerateWindows(hWnd: HWND; lparam:LPARAM):Bool;
var
ClassName, TheText : Array [0..255] of char;
sName : string;
begin
Application.ProcessMessages;
GetClassNAme(hWnd,Classname, 255);
if GetWindowText(hWnd, TheText, 255) > 0 then
begin
sName := StrPas(TheText);
if pos('NOTEPAD',UpperCase(sName)) > 0 then
postMessage(FindWindow(ClassName, TheText), WM_CLOSE, 0, 0);
end;
end;

end.

 

[LucieLastic]

hi

I've changed your mistakes(in blue), here's the working code:-

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
{ Public declarations }
end;

function EnumerateWindows(hWnd: HWND; lparam:LPARAM):Bool; stdCall;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumerateWindows,0);
end;

function EnumerateWindows(hWnd: HWND; lparam:LPARAM):Bool;
var
ClassName, TheText : Array [0..255] of char;
sName : string;
begin
Application.ProcessMessages;
GetClassNAme(hWnd,Classname, 255);
if GetWindowText(hWnd, TheText, 255) > 0 then
begin
sName := StrPas(TheText);
if pos('NOTEPAD',UpperCase(sName)) > 0 then
postMessage(FindWindow(ClassName, TheText), WM_CLOSE, 0, 0);
end;
end;

end.

lou

 

[GCTIberica]

Thanks so much
That works like a dream!!!!!!

THANKSSSSSSSSS