Re: [BLACKBOX] Getting the User\Local Settings\Application Data\ path

From: [at]} <Marc>
Date: Thu, 24 Jan 2008 16:29:29 -0800

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

> I'm interested in this. I spent a few minutes with it doing an end of
> day mindless copy, and I don't get a clean compile.
> Could you dress it up a little so it will write the string to the log?

Sorry about that... this should compile and run:

----
MODULE PrivApi ["SHELL32.dll"];
IMPORT WinApi;
CONST
  CSIDL_LOCAL_APPDATA* =           1CH; 
  CSIDL_FLAG_CREATE*   =         8000H; 
  SHGFP_TYPE_CURRENT*  =             0; 
  SHGFP_TYPE_DEFAULT*  =             1; 
 
PROCEDURE SHGetFolderPath* ["SHGetFolderPathW"]
( hwndOwner: WinApi.HWND;
  nFolder:   INTEGER;         
  hToken:    WinApi.HANDLE;   
  dwFlags:   INTEGER;         
  VAR [nil] pszPath: ARRAY [untagged] OF CHAR ):
  INTEGER;                    
END PrivApi.
----
MODULE  PrivTest;
IMPORT Log, WinApi, PrivApi, SYSTEM;
PROCEDURE Do*;
VAR
  result: INTEGER;
  str: ARRAY [untagged] WinApi.MAX_PATH OF CHAR;
BEGIN
  result := PrivApi.SHGetFolderPath
  ( WinApi.NULL, 
    PrivApi.CSIDL_LOCAL_APPDATA + PrivApi.CSIDL_FLAG_CREATE,  
    WinApi.NULL, 
    PrivApi.SHGFP_TYPE_CURRENT,
    str );
  Log.Char( '"' );
  Log.String( str );
  Log.Char( '"' );
  Log.Ln;
END Do;
BEGIN
END PrivTest.
----
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-477512807_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4gSSdtIGludGVyZXN0ZWQgaW4gdGhpcy4gIEkg
c3BlbnQgYSBmZXcgbWludXRlcyB3aXRoIGl0IGRvaW5nIGFuIGVuZCBvZlxwYXINCj4gZGF5IG1p
bmRsZXNzIGNvcHksIGFuZCBJIGRvbid0IGdldCBhIGNsZWFuIGNvbXBpbGUuXHBhcg0KPiBDb3Vs
ZCB5b3UgZHJlc3MgaXQgdXAgYSBsaXR0bGUgc28gaXQgd2lsbCB3cml0ZSB0aGUgc3RyaW5nIHRv
IHRoZSBsb2c/XHBhcg0KXHBhcg0KU29ycnkgYWJvdXQgdGhhdC4uLiB0aGlzIHNob3VsZCBjb21w
aWxlIGFuZCBydW46XHBhcg0KXHBhcg0KLS0tLVxwYXINClxwYXINCk1PRFVMRSBQcml2QXBpIFsi
U0hFTEwzMi5kbGwiXTtccGFyDQpccGFyDQpJTVBPUlQgV2luQXBpO1xwYXINClxwYXINCkNPTlNU
XHBhcg0KICBDU0lETF9MT0NBTF9BUFBEQVRBKiA9ICAgICAgICAgICAxQ0g7IFxwYXINCiAgQ1NJ
RExfRkxBR19DUkVBVEUqICAgPSAgICAgICAgIDgwMDBIOyBccGFyDQogIFNIR0ZQX1RZUEVfQ1VS
UkVOVCogID0gICAgICAgICAgICAgMDsgXHBhcg0KICBTSEdGUF9UWVBFX0RFRkFVTFQqICA9ICAg
ICAgICAgICAgIDE7IFxwYXINCiBccGFyDQpQUk9DRURVUkUgU0hHZXRGb2xkZXJQYXRoKiBbIlNI
R2V0Rm9sZGVyUGF0aFciXVxwYXINCiggaHduZE93bmVyOiBXaW5BcGkuSFdORDtccGFyDQogIG5G
b2xkZXI6ICAgSU5URUdFUjsgICAgICAgICBccGFyDQogIGhUb2tlbjogICAgV2luQXBpLkhBTkRM
RTsgICBccGFyDQogIGR3RmxhZ3M6ICAgSU5URUdFUjsgICAgICAgICBccGFyDQogIFZBUiBbbmls
XSBwc3pQYXRoOiBBUlJBWSBbdW50YWdnZWRdIE9GIENIQVIgKTpccGFyDQogIElOVEVHRVI7ICAg
ICAgICAgICAgICAgICAgICBccGFyDQpccGFyDQpFTkQgUHJpdkFwaS5ccGFyDQpccGFyDQotLS0t
XHBhcg0KXHBhcg0KTU9EVUxFICBQcml2VGVzdDtccGFyDQpccGFyDQpJTVBPUlQgTG9nLCBXaW5B
cGksIFByaXZBcGksIFNZU1RFTTtccGFyDQpccGFyDQpQUk9DRURVUkUgRG8qO1xwYXINClZBUlxw
YXINCiAgcmVzdWx0OiBJTlRFR0VSO1xwYXINCiAgc3RyOiBBUlJBWSBbdW50YWdnZWRdIFdpbkFw
aS5NQVhfUEFUSCBPRiBDSEFSO1xwYXINCkJFR0lOXHBhcg0KICByZXN1bHQgOj0gUHJpdkFwaS5T
SEdldEZvbGRlclBhdGhccGFyDQogICggV2luQXBpLk5VTEwsIFxwYXINCiAgICBQcml2QXBpLkNT
SURMX0xPQ0FMX0FQUERBVEEgKyBQcml2QXBpLkNTSURMX0ZMQUdfQ1JFQVRFLCAgXHBhcg0KICAg
IFdpbkFwaS5OVUxMLCBccGFyDQogICAgUHJpdkFwaS5TSEdGUF9UWVBFX0NVUlJFTlQsXHBhcg0K
ICAgIHN0ciApO1xwYXINClxwYXINCiAgTG9nLkNoYXIoICciJyApO1xwYXINCiAgTG9nLlN0cmlu
Zyggc3RyICk7XHBhcg0KICBMb2cuQ2hhciggJyInICk7XHBhcg0KICBMb2cuTG47XHBhcg0KXHBh
cg0KRU5EIERvO1xwYXINClxwYXINCkJFR0lOXHBhcg0KRU5EIFByaXZUZXN0LlxwYXINClxwYXIN
Ci0tLS1ccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBt
ZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JF
Uk9OLkNIXHBhcg0KfQ==
----boundary-LibPST-iamunique-477512807_-_---

Received on Fri Jan 25 2008 - 01:29:29 UTC