----boundary-LibPST-iamunique-1355198126_-_-
Content-type: text/plain
Hi Robert,
A useful WinApi function for doing things like this is ShellExecute. I've
just tried the code below and it seems to work OK but needs cleaning up and
thorough debugging / testing.
Try these sample calls:
Execute.Run('P:\MyProject\MySubsystem\MyComponentSpecification.pdf');
Execute.Run('
http://www.cfbsoftware.com/gpcp');
Execute.Run('mailto:blackbox{([at]})nowhere.xy
The latter two might come as a surprise. What Windows does is run the
application that is *associated* with the filename.
Regards,
Chris Burrows
CFB Software
http://www.cfbsoftware.com/gpcp
(*-----------------------------------------------------------
Warning - the following code is experimental and untested.
Use at your own risk.
Chris Burrows.
CFB Software 7 Feb 2005
-----------------------------------------------------------*)
MODULE Execute;
IMPORT WinApi, ComTools, SYSTEM;
PROCEDURE ExecuteFile(hwnd: WinApi.HWND; IN FileName: ARRAY OF SHORTCHAR):
WinApi.HINSTANCE;
VAR
pParams, pDir, pFileName: WinApi.PtrSTR;
fileName: ARRAY 255 OF SHORTCHAR;
BEGIN
fileName := FileName$;
pParams := ComTools.NewEmptySString(0);
pDir := ComTools.NewEmptySString(0);
pFileName := ComTools.NewSString(fileName);
RETURN WinApi.ShellExecute(hwnd, NIL, pFileName, pParams, pDir,
WinApi.SW_SHOWNORMAL);
END ExecuteFile;
PROCEDURE Run*(IN FileName: ARRAY OF SHORTCHAR);
VAR
h: WinApi.HINSTANCE;
BEGIN
h := ExecuteFile(0, FileName);
END Run;
END Execute.
(*-----------------------------------------------------------*)
> -----Original Message-----
> From: blackbox{([at]})nowhere.xy> Campbell, Robert D (UK Edinburgh)
> Sent: Monday, 7 February 2005 8:05 PM
> To: BlackBox Mailing List
> Subject: [BlackBox] - PDF files
>
>
>
>
> 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 :=
> '01234567890123456789012345678901234567890123456789012345678901234
> 567890123456789012345678901234567890123456789012345678901234567890
> 123456789012345678901234567890123456789012345678901234567890123456
> 7890123456789';
> 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','MyComponentSpeci
> fication.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-1355198126_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpIFJvYmVydCxccGFyDQpccGFyDQpBIHVzZWZ1
bCBXaW5BcGkgZnVuY3Rpb24gZm9yIGRvaW5nIHRoaW5ncyBsaWtlIHRoaXMgaXMgU2hlbGxFeGVj
dXRlLiBJJ3ZlXHBhcg0KanVzdCB0cmllZCB0aGUgY29kZSBiZWxvdyBhbmQgaXQgc2VlbXMgdG8g
d29yayBPSyBidXQgbmVlZHMgY2xlYW5pbmcgdXAgYW5kXHBhcg0KdGhvcm91Z2ggZGVidWdnaW5n
IC8gdGVzdGluZy5ccGFyDQpccGFyDQpUcnkgdGhlc2Ugc2FtcGxlIGNhbGxzOlxwYXINClxwYXIN
Clx0YWIgRXhlY3V0ZS5SdW4oJ1A6XFxNeVByb2plY3RcXE15U3Vic3lzdGVtXFxNeUNvbXBvbmVu
dFNwZWNpZmljYXRpb24ucGRmJyk7XHBhcg0KXHRhYiBFeGVjdXRlLlJ1bignaHR0cDovL3d3dy5j
ZmJzb2Z0d2FyZS5jb20vZ3BjcCcpO1xwYXINClx0YWIgRXhlY3V0ZS5SdW4oJ21haWx0bzpibGFj
a2JveEBvYmVyb24uY2gnKTtccGFyDQpccGFyDQpUaGUgbGF0dGVyIHR3byBtaWdodCBjb21lIGFz
IGEgc3VycHJpc2UuIFdoYXQgV2luZG93cyBkb2VzIGlzIHJ1biB0aGVccGFyDQphcHBsaWNhdGlv
biB0aGF0IGlzICphc3NvY2lhdGVkKiB3aXRoIHRoZSBmaWxlbmFtZS5ccGFyDQpccGFyDQpSZWdh
cmRzLFxwYXINCkNocmlzIEJ1cnJvd3NccGFyDQpDRkIgU29mdHdhcmVccGFyDQpodHRwOi8vd3d3
LmNmYnNvZnR3YXJlLmNvbS9ncGNwXHBhcg0KXHBhcg0KXHBhcg0KKCotLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINCiAgIFdhcm5p
bmcgLSB0aGUgZm9sbG93aW5nIGNvZGUgaXMgZXhwZXJpbWVudGFsIGFuZCB1bnRlc3RlZC5ccGFy
DQogICBVc2UgYXQgeW91ciBvd24gcmlzay5ccGFyDQogICBDaHJpcyBCdXJyb3dzLlxwYXINCiAg
IENGQiBTb2Z0d2FyZSA3IEZlYiAyMDA1XHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0qKVxwYXINCk1PRFVMRSBFeGVjdXRlO1xw
YXINClxwYXINCklNUE9SVCBXaW5BcGksIENvbVRvb2xzLCBTWVNURU07XHBhcg0KXHBhcg0KUFJP
Q0VEVVJFIEV4ZWN1dGVGaWxlKGh3bmQ6IFdpbkFwaS5IV05EOyBJTiBGaWxlTmFtZTogQVJSQVkg
T0YgU0hPUlRDSEFSKTpccGFyDQpXaW5BcGkuSElOU1RBTkNFO1xwYXINClZBUlxwYXINCiAgcFBh
cmFtcywgcERpciwgcEZpbGVOYW1lOiBXaW5BcGkuUHRyU1RSO1xwYXINCiAgZmlsZU5hbWU6IEFS
UkFZIDI1NSBPRiBTSE9SVENIQVI7XHBhcg0KQkVHSU5ccGFyDQogIGZpbGVOYW1lIDo9IEZpbGVO
YW1lJDtccGFyDQogIHBQYXJhbXMgOj0gQ29tVG9vbHMuTmV3RW1wdHlTU3RyaW5nKDApO1xwYXIN
CiAgcERpciA6PSBDb21Ub29scy5OZXdFbXB0eVNTdHJpbmcoMCk7XHBhcg0KICBwRmlsZU5hbWUg
Oj0gQ29tVG9vbHMuTmV3U1N0cmluZyhmaWxlTmFtZSk7XHBhcg0KICBSRVRVUk4gV2luQXBpLlNo
ZWxsRXhlY3V0ZShod25kLCBOSUwsIHBGaWxlTmFtZSwgcFBhcmFtcywgcERpcixccGFyDQogICAg
V2luQXBpLlNXX1NIT1dOT1JNQUwpO1xwYXINCkVORCBFeGVjdXRlRmlsZTtccGFyDQpccGFyDQpQ
Uk9DRURVUkUgUnVuKihJTiBGaWxlTmFtZTogQVJSQVkgT0YgU0hPUlRDSEFSKTtccGFyDQpWQVJc
cGFyDQogIGg6ICBXaW5BcGkuSElOU1RBTkNFO1xwYXINCkJFR0lOXHBhcg0KICBoIDo9IEV4ZWN1
dGVGaWxlKDAsIEZpbGVOYW1lKTtccGFyDQpFTkQgUnVuO1xwYXINClxwYXINCkVORCBFeGVjdXRl
LlxwYXINCigqLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0qKVxwYXINClxwYXINCj4gLS0tLS1PcmlnaW5hbCBNZXNzYWdlLS0tLS1ccGFy
DQo+IEZyb206IGJsYWNrYm94QG9iZXJvbi5jaCBbbWFpbHRvOmJsYWNrYm94QG9iZXJvbi5jaF1P
biBCZWhhbGYgT2ZccGFyDQo+IENhbXBiZWxsLCBSb2JlcnQgRCAoVUsgRWRpbmJ1cmdoKVxwYXIN
Cj4gU2VudDogTW9uZGF5LCA3IEZlYnJ1YXJ5IDIwMDUgODowNSBQTVxwYXINCj4gVG86IEJsYWNr
Qm94IE1haWxpbmcgTGlzdFxwYXINCj4gU3ViamVjdDogW0JsYWNrQm94XSAtIFBERiBmaWxlc1xw
YXINCj5ccGFyDQo+XHBhcg0KPlxwYXINCj5ccGFyDQo+IEkgaGF2ZSB3cml0dGVuIGEgc21hbGwg
Q29tbWFuZCB0byBvcGVuIGEgJ1BERicgZmlsZS5ccGFyDQo+IEl0IHdvcmtzIGZvciBtZSwgYnV0
IGhhcyBzZXZlcmFsIHByb2JsZW1zLCBpbiBwYXJ0aWN1bGFyOlxwYXINCj5ccGFyDQo+IDEgLSBB
IGN1c3RvbWVyIG1pZ2h0IGhhdmUgYSBkaWZmZXJlbnQgdmVyc2lvbiBvZiBBY3JvYmF0LlxwYXIN
Cj4gMiAtIFNoZSBtaWdodCBrZWVwIGluIGluIGEgZGlmZmVyZW50IHBhdGhccGFyDQo+IDMgLSBv
ciBub3QgaGF2ZSBBY3JvYmF0XHBhcg0KPiA0IC0gb3IgcHJlZmVycyB0byB1c2UgR1N2aWV3IGV0
Yy5ccGFyDQo+XHBhcg0KPiBJdCBpcyBhbHNvIG5vdCBtZW1vcnkgc2FmZSFccGFyDQo+XHBhcg0K
PiBEb2VzIGFueW9uZSBrbm93IGEgYmV0dGVyIGFwcHJvYWNoP1xwYXINCj5ccGFyDQo+IFRoYW5r
c1xwYXINCj5ccGFyDQo+IFJvYmVydFxwYXINCj5ccGFyDQo+XHBhcg0KPlxwYXINCj4gTU9EVUxF
IFdhbmRzQWNyb2JhdDtccGFyDQo+IElNUE9SVCBXaW5BcGksIFNZU1RFTTtccGFyDQo+IENPTlNU
XHBhcg0KPiAgIEFjcm9iYXQgPSAnQzpcXFByb2dyYW0gRmlsZXNcXEFkb2JlXFxBY3JvYmF0IDUu
MFxcUmVhZGVyXFxBY3JvUmQzMi5leGUgICc7XHBhcg0KPlxwYXINCj4gUFJPQ0VEVVJFIERpc3Bs
YXkqKElOIHBhdGgsIGZpbGU6IEFSUkFZIE9GIENIQVIpO1xwYXINCj4gICBWQVJccGFyDQo+ICAg
ICBjbWQ6IFdpbkFwaS5QdHJTVFI7XHBhcg0KPiAgIEJFR0lOXHBhcg0KPiAgICAgY21kICA6PVxw
YXINCj4gJzAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5
MDEyMzQ1Njc4OTAxMjM0XHBhcg0KPiA1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4
OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4OTBccGFyDQo+IDEyMzQ1Njc4OTAxMjM0NTY3
ODkwMTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTIzNDU2Nzg5MDEyMzQ1NlxwYXINCj4g
Nzg5MDEyMzQ1Njc4OSc7XHBhcg0KPiAgICAgY21kXiA6PSBBY3JvYmF0ICsgU0hPUlQocGF0aCAr
IGZpbGUpO1xwYXINCj4gICAgIElGICBXaW5BcGkuV2luRXhlYyhjbWQsIFdpbkFwaS5TV19TSE9X
KSA9IDAgVEhFTiBFTkRccGFyDQo+ICAgRU5EICBEaXNwbGF5O1xwYXINCj5ccGFyDQo+IEVORCBX
YW5kc0Fjcm9iYXQuXHBhcg0KPlxwYXINCj5ccGFyDQo+ICAgICBEZXZEZWJ1Zy5VbmxvYWRccGFy
DQo+XHBhcg0KPlxwYXINCj4gIldhbmRzQWNyb2JhdC5EaXNwbGF5KCdQOlxcTXlQcm9qZWN0XFxN
eVN1YnN5c3RlbScsJ015Q29tcG9uZW50U3BlY2lccGFyDQo+IGZpY2F0aW9uLnBkZicpIlxwYXIN
Cj5ccGFyDQo+ICoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqXHBhcg0KPiBUaGlzIGVtYWlsIGFuZCBhbnkgYXR0YWNobWVu
dHMgYXJlIGNvbmZpZGVudGlhbCB0byB0aGUgaW50ZW5kZWRccGFyDQo+IHJlY2lwaWVudCBhbmQg
bWF5IGFsc28gYmUgcHJpdmlsZWdlZC4gSWYgeW91IGFyZSBub3QgdGhlIGludGVuZGVkXHBhcg0K
PiByZWNpcGllbnQgcGxlYXNlIGRlbGV0ZSBpdCBmcm9tIHlvdXIgc3lzdGVtIGFuZCBub3RpZnkg
dGhlIHNlbmRlci5ccGFyDQo+IFlvdSBzaG91bGQgbm90IGNvcHkgaXQgb3IgdXNlIGl0IGZvciBh
bnkgcHVycG9zZSBub3IgZGlzY2xvc2Ugb3JccGFyDQo+IGRpc3RyaWJ1dGUgaXRzIGNvbnRlbnRz
IHRvIGFueSBvdGhlciBwZXJzb24uXHBhcg0KPiAqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKlxwYXINCj5ccGFyDQo+IC0t
LSBCbGFja0JveFxwYXINCj4gLS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRv
IGJsYWNrYm94QG9iZXJvbi5jaFxwYXINCj5ccGFyDQo+XHBhcg0KPlxwYXINClxwYXINCi0tLSBC
bGFja0JveFxwYXINCi0tLSBzZW5kIHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFj
a2JveEBvYmVyb24uY2hccGFyDQpccGFyDQp9
----boundary-LibPST-iamunique-1355198126_-_---
Received on Mon Feb 07 2005 - 12:57:34 UTC