OVH Cloud OVH Cloud

utilisation des api windows

2 réponses
Avatar
Etienne REMOND
Bonjour

j'ai récupé du code d'un ancien projet vb6 qui utilise des api windows.
elles sont déclarées comme suit:

--------------------------------------------------------------------------------

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA"
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long,
ByVal samDesired As Long, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String,
ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As
Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

--------------------------------------------------------------------------------

Mais je voudrais les utiliser dans mon appli vb.net. Je crois qu'il faut
convertir certains types.
Long -> Integer ?
String -> String ?
Any -> ?????

Merci pour vos lumières




Etienne

2 réponses

Avatar
Ghislain Proulx
Bonjour Étienne,

Tes appels API semblent tous pour avoir accès à la base de registre, tu
devrais peut-être plutôt regardé de ce coté : Microsoft.Win32.Registry

Bonne journée

Ghislain Proulx

"Etienne REMOND" a écrit dans le message de
news:
Bonjour

j'ai récupé du code d'un ancien projet vb6 qui utilise des api windows.
elles sont déclarées comme suit:

--------------------------------------------------------------------------


------

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA"
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long,
ByVal samDesired As Long, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String,
ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As
Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As


Long

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

--------------------------------------------------------------------------


------

Mais je voudrais les utiliser dans mon appli vb.net. Je crois qu'il faut
convertir certains types.
Long -> Integer ?
String -> String ?
Any -> ?????

Merci pour vos lumières




Etienne



Avatar
Etienne REMOND
ok
ça marche.
j'ai utilisé

val =
Microsoft.Win32.Registry.Local_machine.openSubKey("...").getValue("...")




Etienne


Ghislain Proulx wrote:

Bonjour Étienne,

Tes appels API semblent tous pour avoir accès à la base de registre, tu
devrais peut-être plutôt regardé de ce coté : Microsoft.Win32.Registry

Bonne journée

Ghislain Proulx

"Etienne REMOND" a écrit dans le message de
news:

Bonjour

j'ai récupé du code d'un ancien projet vb6 qui utilise des api windows.
elles sont déclarées comme suit:

--------------------------------------------------------------------------



------

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA"
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long,
ByVal samDesired As Long, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String,
ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As
Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As



Long

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

--------------------------------------------------------------------------



------

Mais je voudrais les utiliser dans mon appli vb.net. Je crois qu'il faut
convertir certains types.
Long -> Integer ?
String -> String ?
Any -> ?????

Merci pour vos lumières




Etienne