Re: [BLACKBOX] starting and stopping application from BlackBox

From: [at]} <Werner>
Date: Thu, 13 May 2010 17:50:43 +0200

----boundary-LibPST-iamunique-1763399728_-_-
Content-type: text/plain

Hi,

> Hello BlackBox peoples,
>
> There is a procedure in the HostDialog called Start to start an
> application from within BlackBox. Is there a
> equivalent procedure to this to close an application. One obvious problem is
> knowing which applications have
> been started by BlackBox.

try module O3bbWin of our Tool-Package
http://www.o3-software.de

or just this:

IMPORT
        HostFiles,
        WinApi;

TYPE
        Process* = POINTER TO LIMITED RECORD
                hProcess, hThread : WinApi.HANDLE;
        END;


PROCEDURE (p : Process) Terminate*,NEW;
        VAR res, exitCode : INTEGER;
        BEGIN
                IF p.hProcess # 0 THEN
                        res := WinApi.TerminateProcess(p.hProcess,exitCode);
                        res := WinApi.CloseHandle(p.hProcess);
                        res := WinApi.CloseHandle(p.hThread);
                        p.hProcess := 0;
                END;
        END Terminate;

PROCEDURE ProcessCreate* (commandLine : ARRAY OF CHAR) : Process;
        VAR si : WinApi.STARTUPINFOW; pi : WinApi.PROCESS_INFORMATION;
                res : INTEGER; proc : Process;
        BEGIN
                WinApi.GetStartupInfoW(si); (* get information about the current process *)
                si.wShowWindow := WinApi.SW_SHOWNORMAL; (* activate and display the window *)
                        (* Docu: An application should specify this flag when displaying the window for the first time. *)
                res := WinApi.CreateProcessW(NIL,commandLine,NIL,NIL,WinApi.FALSE,{},0,NIL,si,pi);
                        (* Docu: lpCommandLine The Unicode version of this function, CreateProcessW, can modify the contents of this string.
                                Therefore, this parameter cannot be a pointer to read-only memory ...
                        *)
                ASSERT(res # 0,100);
                NEW(proc);
                proc.hProcess := pi.hProcess;
                proc.hThread := pi.hThread;
                RETURN proc
        END ProcessCreate;





mit freundlichen Grüssen

Werner Braun

Mobil +49 (0)178 145 8768 * Fon +49 (0)431 556 8907-1 * Fax +49 (0)431 556 8907-9

O³ Software GmbH & Co. KG * Franziusallee 131 * D-24148 Kiel * Germany
Sitz der Gesellschaft Kiel * HR Amtsgericht Kiel HRA 6418 KI
Persönlich haftende Gesellschafterin O³ Software GmbH * HR Amtsgericht Kiel HRB 10335 KI * Geschäftsführer Werner Braun

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1763399728_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBIaSxccGFyDQpccGFyDQo+IEhl
bGxvIEJsYWNrQm94IHBlb3BsZXMsXHBhcg0KPiBccGFyDQo+ICAgIFRoZXJlIGlzIGEgcHJvY2Vk
dXJlIGluIHRoZSBIb3N0RGlhbG9nIGNhbGxlZCBTdGFydCB0byBzdGFydCBhblxwYXINCj4gYXBw
bGljYXRpb24gZnJvbSB3aXRoaW4gQmxhY2tCb3guIElzIHRoZXJlIGFccGFyDQo+IGVxdWl2YWxl
bnQgcHJvY2VkdXJlIHRvIHRoaXMgdG8gY2xvc2UgYW4gYXBwbGljYXRpb24uIE9uZSBvYnZpb3Vz
IHByb2JsZW0gaXNccGFyDQo+IGtub3dpbmcgd2hpY2ggYXBwbGljYXRpb25zIGhhdmVccGFyDQo+
IGJlZW4gc3RhcnRlZCBieSBCbGFja0JveC5ccGFyDQpccGFyDQp0cnkgbW9kdWxlIE8zYmJXaW4g
b2Ygb3VyIFRvb2wtUGFja2FnZVxwYXINCmh0dHA6Ly93d3cubzMtc29mdHdhcmUuZGVccGFyDQpc
cGFyDQpvciBqdXN0IHRoaXM6XHBhcg0KXHBhcg0KSU1QT1JUXHBhcg0KXHRhYiBIb3N0RmlsZXMs
XHBhcg0KXHRhYiBXaW5BcGk7XHBhcg0KXHBhcg0KVFlQRVxwYXINClx0YWIgUHJvY2VzcyogPSBQ
T0lOVEVSIFRPIExJTUlURUQgUkVDT1JEXHBhcg0KXHRhYiBcdGFiIGhQcm9jZXNzLCBoVGhyZWFk
IDogV2luQXBpLkhBTkRMRTtccGFyDQpcdGFiIEVORDtccGFyDQpccGFyDQpccGFyDQpQUk9DRURV
UkUgKHAgOiBQcm9jZXNzKSBUZXJtaW5hdGUqLE5FVztccGFyDQpcdGFiIFZBUiByZXMsIGV4aXRD
b2RlIDogSU5URUdFUjtccGFyDQpcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIElGIHAuaFByb2Nl
c3MgIyAwIFRIRU5ccGFyDQpcdGFiIFx0YWIgXHRhYiByZXMgOj0gV2luQXBpLlRlcm1pbmF0ZVBy
b2Nlc3MocC5oUHJvY2VzcyxleGl0Q29kZSk7XHBhcg0KXHRhYiBcdGFiIFx0YWIgcmVzIDo9IFdp
bkFwaS5DbG9zZUhhbmRsZShwLmhQcm9jZXNzKTtccGFyDQpcdGFiIFx0YWIgXHRhYiByZXMgOj0g
V2luQXBpLkNsb3NlSGFuZGxlKHAuaFRocmVhZCk7XHBhcg0KXHRhYiBcdGFiIFx0YWIgcC5oUHJv
Y2VzcyA6PSAwO1xwYXINClx0YWIgXHRhYiBFTkQ7XHBhcg0KXHRhYiBFTkQgVGVybWluYXRlO1xw
YXINClxwYXINClBST0NFRFVSRSBQcm9jZXNzQ3JlYXRlKiAoY29tbWFuZExpbmUgOiBBUlJBWSBP
RiBDSEFSKSA6IFByb2Nlc3M7XHBhcg0KXHRhYiBWQVIgc2kgOiBXaW5BcGkuU1RBUlRVUElORk9X
OyBwaSA6IFdpbkFwaS5QUk9DRVNTX0lORk9STUFUSU9OO1xwYXINClx0YWIgXHRhYiByZXMgOiBJ
TlRFR0VSOyBwcm9jIDogUHJvY2VzcztccGFyDQpcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIFdp
bkFwaS5HZXRTdGFydHVwSW5mb1coc2kpO1x0YWIgXHRhYiBcdGFiIFx0YWIgXHRhYiBcdGFiICgq
IGdldCBpbmZvcm1hdGlvbiBhYm91dCB0aGUgY3VycmVudCBwcm9jZXNzICopXHBhcg0KXHRhYiBc
dGFiIHNpLndTaG93V2luZG93IDo9IFdpbkFwaS5TV19TSE9XTk9STUFMO1x0YWIgXHRhYiAoKiBh
Y3RpdmF0ZSBhbmQgZGlzcGxheSB0aGUgd2luZG93ICopXHBhcg0KXHRhYiBcdGFiIFx0YWIgKCog
RG9jdTogQW4gYXBwbGljYXRpb24gc2hvdWxkIHNwZWNpZnkgdGhpcyBmbGFnIHdoZW4gZGlzcGxh
eWluZyB0aGUgd2luZG93IGZvciB0aGUgZmlyc3QgdGltZS4gKilccGFyDQpcdGFiIFx0YWIgcmVz
IDo9IFdpbkFwaS5DcmVhdGVQcm9jZXNzVyhOSUwsY29tbWFuZExpbmUsTklMLE5JTCxXaW5BcGku
RkFMU0UsXHtcfSwwLE5JTCxzaSxwaSk7XHBhcg0KXHRhYiBcdGFiIFx0YWIgKCogRG9jdTogbHBD
b21tYW5kTGluZSBUaGUgVW5pY29kZSB2ZXJzaW9uIG9mIHRoaXMgZnVuY3Rpb24sIENyZWF0ZVBy
b2Nlc3NXLCBjYW4gbW9kaWZ5IHRoZSBjb250ZW50cyBvZiB0aGlzIHN0cmluZy5ccGFyDQpcdGFi
IFx0YWIgXHRhYiBcdGFiIFRoZXJlZm9yZSwgdGhpcyBwYXJhbWV0ZXIgY2Fubm90IGJlIGEgcG9p
bnRlciB0byByZWFkLW9ubHkgbWVtb3J5IC4uLlxwYXINClx0YWIgXHRhYiBcdGFiICopXHBhcg0K
XHRhYiBcdGFiIEFTU0VSVChyZXMgIyAwLDEwMCk7XHBhcg0KXHRhYiBcdGFiIE5FVyhwcm9jKTtc
cGFyDQpcdGFiIFx0YWIgcHJvYy5oUHJvY2VzcyA6PSBwaS5oUHJvY2VzcztccGFyDQpcdGFiIFx0
YWIgcHJvYy5oVGhyZWFkIDo9IHBpLmhUaHJlYWQ7XHBhcg0KXHRhYiBcdGFiIFJFVFVSTiBwcm9j
XHBhcg0KXHRhYiBFTkQgUHJvY2Vzc0NyZWF0ZTtccGFyDQpccGFyDQpccGFyDQpccGFyDQpccGFy
DQpccGFyDQptaXQgZnJldW5kbGljaGVuIEdyXCdmY3NzZW5ccGFyDQpccGFyDQpXZXJuZXIgQnJh
dW5ccGFyDQpccGFyDQpNb2JpbCArNDkgKDApMTc4IDE0NSA4NzY4ICogRm9uICs0OSAoMCk0MzEg
NTU2IDg5MDctMSAqIEZheCArNDkgKDApNDMxIDU1NiA4OTA3LTlccGFyDQpccGFyDQpPXCdiMyBT
b2Z0d2FyZSBHbWJIICYgQ28uIEtHICogRnJhbnppdXNhbGxlZSAxMzEgKiBELTI0MTQ4IEtpZWwg
KiBHZXJtYW55XHBhcg0KU2l0eiBkZXIgR2VzZWxsc2NoYWZ0IEtpZWwgKiBIUiBBbXRzZ2VyaWNo
dCBLaWVsIEhSQSA2NDE4IEtJXHBhcg0KUGVyc1wnZjZubGljaCBoYWZ0ZW5kZSBHZXNlbGxzY2hh
ZnRlcmluIE9cJ2IzIFNvZnR3YXJlIEdtYkggKiBIUiBBbXRzZ2VyaWNodCBLaWVsIEhSQiAxMDMz
NSBLSSAqIEdlc2NoXCdlNGZ0c2ZcJ2ZjaHJlciBXZXJuZXIgQnJhdW5ccGFyDQpccGFyDQpccGFy
DQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lH
Tk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIfX0A429i7w=
----boundary-LibPST-iamunique-1763399728_-_---

Received on Thu May 13 2010 - 17:50:43 UTC