I would like to write a small utility program for my job and i need to read 
the windows registry.
I saw that Ned started a small changeset (Win32Registry-nk.cs attached) in 
2002 but there was still a problem with it (could not coerce arguments 
exception). I do not know ffi enough and do not see exactly what the problem 
is.

Did someone read the windows registry with squeak ? and How ?

Your help would be very appreciated
thanks

Alain 


begin 666 Win32Registry-nk.cs
M)T9R;VT at 4W%U96%K,RXR(&]F(#$Q($IU;'D@,C P,B!;;&%T97-T('5P9&%T
M93H@(S0Y-3)=(&]N(#<@4V5P=&5M8F5R(#(P,#(@870@,SHU,3HU,B!P;2<A
M#2)#:&%N9V4 at 4V5T.@D)5VEN,S)296=I<W1R>2UN:PU$871E. at D)"3<@4V5P
M=&5M8F5R(#(P,#(-075T:&]R. at D)"4YE9"!+;VYZ#0U4:&ES(&ES('1H92!S
M=&%R="!O9B!A('!A8VMA9V4@=&AA="!W:6QL(&%L;&]W(&%C8V5S<PUT;R!T
M:&4 at 5VEN9&]W<R!R96=I<W1R>2!F<F]M(%-Q=65A:R!U<VEN9R!&1DDN#0U(
M;W=E=F5R+"!I="!D;V5S;B=T('=O<FL@>65T+ at T-5')Y. at T-5VEN,S)296=I
M<W1R>4ME>2!T97-T4F5G16YU;4ME>45X#0UA;F0@>6]U('=I;&P@<V5E('1H
M870@:70 at 8V%N)W0 at 8V]E<F-E(&%R9W5M96YT<RX-#2(A#0U%>'1E<FYA;%-T
M<G5C='5R92!S=6)C;&%S<SH@(U=I;C,R1FEL951I;64-"6EN<W1A;F-E5F%R
M:6%B;&5.86UE<SH@)R<-"6-L87-S5F%R:6%B;&5.86UE<SH@)R<-"7!O;VQ$
M:6-T:6]N87)I97,Z("<G#0EC871E9V]R>3H@)T9&22U%>&%M<&QE<RU7:6XS
M,B<A#5=I;C,R2&%N9&QE('-U8F-L87-S.B C5VEN,S)296=I<W1R>4ME>0T)
M:6YS=&%N8V5687)I86)L94YA;65S.B G)PT)8VQA<W-687)I86)L94YA;65S
M.B G)PT)<&]O;$1I8W1I;VYA<FEE<SH@)R<-"6-A=&5G;W)Y.B G1D9)+45X
M86UP;&5S+5=I;C,R)R$-#2%7:6XS,D9I;&54:6UE(&UE=&AO9'-&;W(Z("=A
M8V-E<W-I;F<G('-T86UP.B G;FL at .2\W+S(P,#(@,34Z,S,G(0UH:6=H#0DB
M5&AI<R!M971H;V0@=V%S(&%U=&]M871I8V%L;'D at 9V5N97)A=&5D(@T)7FAA
M;F1L92!U;G-I9VYE9$QO;F=!=#H at -2$@(0T-(5=I;C,R1FEL951I;64@;65T
M:&]D<T9O<CH@)V%C8V5S<VEN9R<@<W1A;7 Z("=N:R Y+S<O,C P,B Q-3HS
M,R<A#6AI9V at Z(&%N3V)J96-T#0DB5&AI<R!M971H;V0@=V%S(&%U=&]M871I
M8V%L;'D at 9V5N97)A=&5D(@T):&%N9&QE('5N<VEG;F5D3&]N9T%T.B U('!U
M=#H at 86Y/8FIE8W0A("$-#2%7:6XS,D9I;&54:6UE(&UE=&AO9'-&;W(Z("=A
M8V-E<W-I;F<G('-T86UP.B G;FL at .2\W+S(P,#(@,34Z,S,G(0UL;W<-"2)4
M:&ES(&UE=&AO9"!W87, at 875T;VUA=&EC86QL>2!G96YE<F%T960B#0E>:&%N
M9&QE('5N<VEG;F5D3&]N9T%T.B Q(2 A#0TA5VEN,S)&:6QE5&EM92!M971H
M;V1S1F]R.B G86-C97-S:6YG)R!S=&%M<#H@)VYK(#DO-R\R,# R(#$U.C,S
M)R$-;&]W.B!A;D]B:F5C= T)(E1H:7,@;65T:&]D('=A<R!A=71O;6%T:6-A
M;&QY(&=E;F5R871E9"(-"6AA;F1L92!U;G-I9VYE9$QO;F=!=#H@,2!P=70Z
M(&%N3V)J96-T(2 A#0T-(5=I;C,R1FEL951I;64 at 8VQA<W,@;65T:&]D<T9O
M<CH@)V%S('EE="!U;F-L87-S:69I960G('-T86UP.B G;FL at .2\W+S(P,#(@
M,34Z,S,G(0UF:65L9',-"2)7:6XS,D9I;&54:6UE(&1E9FEN949I96QD<R(-
M"5X@(R at C*"-L;W<@)W5L;VYG)RD@(R at C:&EG:" G=6QO;F<G*2 I(2 A#0TA
M5VEN,S)&:6QE5&EM92!C;&%S<R!M971H;V1S1F]R.B G87,@>65T('5N8VQA
M<W-I9FEE9"<@<W1A;7 Z("=N:R Y+S<O,C P,B Q-3HT,B<A#6EN:71I86QI
M>F4-"7-E;&8 at 9&5F:6YE1FEE;&1S+B$@(0T-#2%7:6XS,E)E9VES=')Y2V5Y
M(&UE=&AO9'-&;W(Z("=A<R!Y970@=6YC;&%S<VEF:65D)R!S=&%M<#H@)VYK
M(#DO-R\R,# R(#$U.C0X)R$-87!I4F5G16YU;4ME>45X.B!H2V5Y(&EN9&5X
M.B!I;F1E>"!N86UE.B!N86UE(&YA;653:7IE.B!N86UE4VEZ92!R97-E<G9E
M9#H@<F5S97)V960@:V5Y0VQA<W,Z(&ME>4-L87-S(&ME>4-L87-S4VEZ93H@
M:V5Y0VQA<W-3:7IE(&QA<W17<FET951I;64Z(&QA<W17<FET951I;64-(DQ/
M3D<@4F5G16YU;4ME>45X* T@($A+15D@:$ME>2P@(" @(" @(" @+R\@:&%N
M9&QE('1O(&ME>2!T;R!E;G5M97)A=&4-("!$5T]21"!D=TEN9&5X+" @(" @
M("\O(&EN9&5X(&]F('-U8FME>2!T;R!E;G5M97)A=&4-("!,4%135%(@;'!.
M86UE+" @(" @("\O(&%D9')E<W,@;V8 at 8G5F9F5R(&9O<B!S=6)K97D@;F%M
M90T@($Q01%=/4D0@;'!C8DYA;64L(" @+R\@861D<F5S<R!F;W(@<VEZ92!O
M9B!S=6)K97D at 8G5F9F5R#2 @3%!$5T]21"!L<%)E<V5R=F5D+" O+R!R97-E
M<G9E9" H;75S="!B92!.54Q,*0T@($Q05%-44B!L<$-L87-S+" @(" @+R\@
M861D<F5S<R!O9B!B=69F97(@9F]R(&-L87-S('-T<FEN9PT@($Q01%=/4D0@
M;'!C8D-L87-S+" @+R\@861D<F5S<R!F;W(@<VEZ92!O9B!C;&%S<R!B=69F
M97(-("!01DE,151)344@;'!F=$QA<W17<FET951I;64@#2 @(" @(" @(" @
M(" @(" @(" @(" O+R!A9&1R97-S(&9O<B!T:6UE(&ME>2!L87-T('=R:71T
M96X@=&\-*3LB#0D\87!I8V%L;#H@;&]N9R G4F5G16YU;4ME>45X02<@*%=I
M;C,R4F5G:7-T<GE+97D@=6QO;F<@8GET92H@=6QO;F<J('5L;VYG*B!B>71E
M*B!U;&]N9RH at 5VEN,S)&:6QE5&EM92HI(&UO9'5L93HG861V87!I,S(N9&QL
M)SX-"5YS96QF(&5X=&5R;F%L0V%L;$9A:6QE9"$@(0T-#2%7:6XS,E)E9VES
M=')Y2V5Y(&-L87-S(&UE=&AO9'-&;W(Z("=A<R!Y970@=6YC;&%S<VEF:65D
M)R!S=&%M<#H@)VYK(#DO-R\R,# R(#$U.C$S)R$-:$ME>4-U<G)E;G1#;VYF
M:6<-"5XQ-G(X,# P,# P-2$@(0T-(5=I;C,R4F5G:7-T<GE+97D at 8VQA<W,@
M;65T:&]D<T9O<CH@)V%S('EE="!U;F-L87-S:69I960G('-T86UP.B G;FL@
M.2\W+S(P,#(@,34Z-#8G(0UT97-T4F5G16YU;4ME>45X#0T)(E=I;C,R4F5G
M:7-T<GE+97D@=&5S=%)E9T5N=6U+97E%>"(-#7P@:V5Y;F%M92!N86UE4VEZ
M92!K97E#;&%S<R!K97E#;&%S<U-I>F4@:6YD97@@9FEL951I;64@? UK97EN
M86UE(%\@4W1R:6YG(&YE=SH@,3 P+ at UN86UE4VEZ92!?(&YA;64@<VEZ92X-
M:V5Y0VQA<W, at 7R!3=')I;F<@;F5W.B Q,# N#6ME>4-L87-S4VEZ92!?(&ME
M>4-L87-S('-I>F4N#6EN9&5X(%\@,"X-9FEL951I;64 at 7R!7:6XS,D9I;&54
M:6UE(&YE=RX-#5Y7:6XS,E)E9VES=')Y2V5Y(&YE=R!A<&E296=%;G5M2V5Y
M17 at Z(%=I;C,R4F5G:7-T<GE+97D@:$ME>4-U<G)E;G1#;VYF:6<@:6YD97 at Z
M(&EN9&5X(&YA;64Z(&ME>6YA;64@;F%M95-I>F4Z(&YA;653:7IE(')E<V5R
M=F5D.B!N:6P@:V5Y0VQA<W,Z(&ME>4-L87-S(&ME>4-L87-S4VEZ93H@:V5Y
M0VQA<W-3:7IE(&QA<W17<FET951I;64Z(&9I;&54:6UE+B$@(0T-5VEN,S)&
4:6QE5&EM92!I;FET:6%L:7IE(0T`
`
end