----boundary-LibPST-iamunique-1424365729_-_-
Content-type: text/plain
If you use ShellExecute rather than WinExec, Windows does it for you:
MODULE Shell ["SHELL32"];
IMPORT WinApi;
PROCEDURE ShellExecuteA* (hwnd: WinApi.HWND; lpOperation: WinApi.PtrSTR;
lpFile: WinApi.PtrSTR; lpParameters: WinApi.PtrSTR; lpDirectory:
WinApi.PtrSTR; nShowCmd: INTEGER): WinApi.HINSTANCE;
END Shell.
MODULE Wandsacrobat;
IMPORT WinApi, SYSTEM, Shell;
PROCEDURE Display*(IN path, file: ARRAY OF CHAR);
VAR
cmd: POINTER TO ARRAY OF SHORTCHAR;
instance: WinApi.HINSTANCE;
BEGIN
NEW(cmd, LEN(path$) + LEN(file$) + 1);
cmd^ := SHORT(path + file);
instance := Shell.ShellExecuteA(0, "open", cmd^, NIL, "",
WinApi.SW_SHOW );
END Display;
END Wandsacrobat.
Regards,
Juan
Campbell, Robert D (UK Edinburgh) wrote:
>I have written a small Command to open a 'PDF' file.
>It works for me, but has several problems, in particular:
>
>1 - A customer might have a different version of Acrobat.
>2 - She might keep in in a different path
>3 - or not have Acrobat
>4 - or prefers to use GSview etc.
>
>It is also not memory safe!
>
>Does anyone know a better approach?
>
>Thanks
>
>Robert
>
>
>
>MODULE WandsAcrobat;
>IMPORT WinApi, SYSTEM;
>CONST
> Acrobat = 'C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe ';
>
>PROCEDURE Display*(IN path, file: ARRAY OF CHAR);
> VAR
> cmd: WinApi.PtrSTR;
> BEGIN
> cmd := '012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789';
> cmd^ := Acrobat + SHORT(path + file);
> IF WinApi.WinExec(cmd, WinApi.SW_SHOW) = 0 THEN END
> END Display;
>
>END WandsAcrobat.
>
>
> DevDebug.Unload
>
> "WandsAcrobat.Display('P:\MyProject\MySubsystem','MyComponentSpecification.pdf')"
>
>********************************************************************
>This email and any attachments are confidential to the intended
>recipient and may also be privileged. If you are not the intended
>recipient please delete it from your system and notify the sender.
>You should not copy it or use it for any purpose nor disclose or
>distribute its contents to any other person.
>********************************************************************
>
>--- BlackBox
>--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>
>
>
>
>
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-1424365729_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIElmIHlvdSB1c2UgU2hlbGxFeGVjdXRlIHJhdGhl
ciB0aGFuIFdpbkV4ZWMsIFdpbmRvd3MgZG9lcyBpdCBmb3IgeW91OlxwYXINClxwYXINCk1PRFVM
RSBTaGVsbCBbIlNIRUxMMzIiXTtccGFyDQpccGFyDQpJTVBPUlQgV2luQXBpO1xwYXINClxwYXIN
ClBST0NFRFVSRSBTaGVsbEV4ZWN1dGVBKiAoaHduZDogV2luQXBpLkhXTkQ7IGxwT3BlcmF0aW9u
OiBXaW5BcGkuUHRyU1RSOyBccGFyDQpscEZpbGU6IFdpbkFwaS5QdHJTVFI7IGxwUGFyYW1ldGVy
czogV2luQXBpLlB0clNUUjsgbHBEaXJlY3Rvcnk6IFxwYXINCldpbkFwaS5QdHJTVFI7IG5TaG93
Q21kOiBJTlRFR0VSKTogV2luQXBpLkhJTlNUQU5DRTtccGFyDQpccGFyDQpFTkQgU2hlbGwuXHBh
cg0KXHBhcg0KTU9EVUxFIFdhbmRzYWNyb2JhdDtccGFyDQpJTVBPUlQgV2luQXBpLCBTWVNURU0s
IFNoZWxsO1xwYXINClxwYXINClBST0NFRFVSRSBEaXNwbGF5KihJTiBwYXRoLCBmaWxlOiBBUlJB
WSBPRiBDSEFSKTtccGFyDQogIFZBUlxwYXINCiAgICBjbWQ6IFBPSU5URVIgVE8gQVJSQVkgT0Yg
U0hPUlRDSEFSO1xwYXINCiAgICBpbnN0YW5jZTogV2luQXBpLkhJTlNUQU5DRTtccGFyDQogIEJF
R0lOXHBhcg0KICAgIE5FVyhjbWQsIExFTihwYXRoJCkgKyBMRU4oZmlsZSQpICsgMSk7XHBhcg0K
ICAgIGNtZF4gOj0gU0hPUlQocGF0aCArIGZpbGUpO1xwYXINCiAgICBpbnN0YW5jZSA6PSBTaGVs
bC5TaGVsbEV4ZWN1dGVBKDAsICJvcGVuIiwgY21kXiwgTklMLCAiIiwgXHBhcg0KV2luQXBpLlNX
X1NIT1cgKTtccGFyDQogIEVORCAgRGlzcGxheTtccGFyDQpccGFyDQpFTkQgV2FuZHNhY3JvYmF0
LlxwYXINClxwYXINClJlZ2FyZHMsXHBhcg0KSnVhblxwYXINClxwYXINCkNhbXBiZWxsLCBSb2Jl
cnQgRCAoVUsgRWRpbmJ1cmdoKSB3cm90ZTpccGFyDQpccGFyDQo+SSBoYXZlIHdyaXR0ZW4gYSBz
bWFsbCBDb21tYW5kIHRvIG9wZW4gYSAnUERGJyBmaWxlLlxwYXINCj5JdCB3b3JrcyBmb3IgbWUs
IGJ1dCBoYXMgc2V2ZXJhbCBwcm9ibGVtcywgaW4gcGFydGljdWxhcjpccGFyDQo+XHBhcg0KPjEg
LSBBIGN1c3RvbWVyIG1pZ2h0IGhhdmUgYSBkaWZmZXJlbnQgdmVyc2lvbiBvZiBBY3JvYmF0Llxw
YXINCj4yIC0gU2hlIG1pZ2h0IGtlZXAgaW4gaW4gYSBkaWZmZXJlbnQgcGF0aFxwYXINCj4zIC0g
b3Igbm90IGhhdmUgQWNyb2JhdFxwYXINCj40IC0gb3IgcHJlZmVycyB0byB1c2UgR1N2aWV3IGV0
Yy5ccGFyDQo+XHBhcg0KPkl0IGlzIGFsc28gbm90IG1lbW9yeSBzYWZlIVxwYXINCj5ccGFyDQo+
RG9lcyBhbnlvbmUga25vdyBhIGJldHRlciBhcHByb2FjaD9ccGFyDQo+XHBhcg0KPlRoYW5rc1xw
YXINCj5ccGFyDQo+Um9iZXJ0XHBhcg0KPlxwYXINCj5ccGFyDQo+XHBhcg0KPk1PRFVMRSBXYW5k
c0Fjcm9iYXQ7XHBhcg0KPklNUE9SVCBXaW5BcGksIFNZU1RFTTtccGFyDQo+Q09OU1RccGFyDQo+
ICBBY3JvYmF0ID0gJ0M6XFxQcm9ncmFtIEZpbGVzXFxBZG9iZVxcQWNyb2JhdCA1LjBcXFJlYWRl
clxcQWNyb1JkMzIuZXhlICAnO1xwYXINCj5ccGFyDQo+UFJPQ0VEVVJFIERpc3BsYXkqKElOIHBh
dGgsIGZpbGU6IEFSUkFZIE9GIENIQVIpO1xwYXINCj4gIFZBUlxwYXINCj4gICAgY21kOiBXaW5B
cGkuUHRyU1RSO1xwYXINCj4gIEJFR0lOXHBhcg0KPiAgICBjbWQgIDo9ICAnMDEyMzQ1Njc4OTAx
MjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4
OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1
Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEy
MzQ1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5JztccGFyDQo+ICAgIGNtZF4gOj0gQWNyb2JhdCAr
IFNIT1JUKHBhdGggKyBmaWxlKTtccGFyDQo+ICAgIElGICBXaW5BcGkuV2luRXhlYyhjbWQsIFdp
bkFwaS5TV19TSE9XKSA9IDAgVEhFTiBFTkRccGFyDQo+ICBFTkQgIERpc3BsYXk7XHBhcg0KPlxw
YXINCj5FTkQgV2FuZHNBY3JvYmF0LlxwYXINCj5ccGFyDQo+XHBhcg0KPiAgICBEZXZEZWJ1Zy5V
bmxvYWRccGFyDQo+XHBhcg0KPiAgICAiV2FuZHNBY3JvYmF0LkRpc3BsYXkoJ1A6XFxNeVByb2pl
Y3RcXE15U3Vic3lzdGVtJywnTXlDb21wb25lbnRTcGVjaWZpY2F0aW9uLnBkZicpIlxwYXINCj5c
cGFyDQo+KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKipccGFyDQo+VGhpcyBlbWFpbCBhbmQgYW55IGF0dGFjaG1lbnRzIGFy
ZSBjb25maWRlbnRpYWwgdG8gdGhlIGludGVuZGVkXHBhcg0KPnJlY2lwaWVudCBhbmQgbWF5IGFs
c28gYmUgcHJpdmlsZWdlZC4gSWYgeW91IGFyZSBub3QgdGhlIGludGVuZGVkXHBhcg0KPnJlY2lw
aWVudCBwbGVhc2UgZGVsZXRlIGl0IGZyb20geW91ciBzeXN0ZW0gYW5kIG5vdGlmeSB0aGUgc2Vu
ZGVyLlxwYXINCj5Zb3Ugc2hvdWxkIG5vdCBjb3B5IGl0IG9yIHVzZSBpdCBmb3IgYW55IHB1cnBv
c2Ugbm9yIGRpc2Nsb3NlIG9yXHBhcg0KPmRpc3RyaWJ1dGUgaXRzIGNvbnRlbnRzIHRvIGFueSBv
dGhlciBwZXJzb24uXHBhcg0KPioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqXHBhcg0KPlxwYXINCj4tLS0gQmxhY2tCb3hc
cGFyDQo+LS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9i
ZXJvbi5jaFxwYXINCj5ccGFyDQo+XHBhcg0KPlxwYXINCj4gIFxwYXINCj5ccGFyDQpccGFyDQot
LS0gQmxhY2tCb3hccGFyDQotLS0gc2VuZCBzdWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8g
YmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KfX0AdHRhYw==
----boundary-LibPST-iamunique-1424365729_-_---
Received on Mon Feb 07 2005 - 12:59:29 UTC