I am about to embark on an upgrading process of my customers from DBISAM to ElevateDB but want to automate the closing of DBSRVR. Note
that this is not just a Stop but an actual closing of DBSRVR so it goes from the System Tray. I am not running DBSRVR as a service so I can't use
"net stop" (which would of been handy!).

Is there a way to do this programmatically?

Regards


Edward Jones

Edward

> I am about to embark on an upgrading process of my customers from DBISAM
to ElevateDB but want to automate the closing of DBSRVR. > >Is there a way
to do this programmatically?

The procedure below should do this for you.  You call it like
closeapp('DBISAM Database Server - DBSRVR (Application)');

procedure closeapp(mainformcaption:string);
var
 h: HWND;
begin
 h := FindWindow(nil, pansichar(mainformcaption));
 if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
end;


John

"John Hay" wrote:

Edward

> I am about to embark on an upgrading process of my customers from DBISAM
to ElevateDB but want to automate the closing of DBSRVR. > >Is there a way
to do this programmatically?

The procedure below should do this for you.  You call it like
closeapp('DBISAM Database Server - DBSRVR (Application)');

procedure closeapp(mainformcaption:string);
var
 h: HWND;
begin
 h := FindWindow(nil, pansichar(mainformcaption));
 if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
end;


John

------------------------

Thanks John, brilliant, that does the trick!


Regards

Edward Jones