|
|
谁能帮我把下面这段代码转成VB6的?
NTSTATUS CreateInstances(__in PUNICODE_STRING RegistryPath)
{ NTSTATUS Status; HANDLE VtioHandle; ULONG Flags = 0; HANDLE InstancesKeyHandle;
UNICODE_STRING SubValueName; WCHAR Altitude[] = {L"360000"};
WCHAR DefaultInstances[] = {L"VTIO"}; UNICODE_STRING Instances = RTL_CONSTANT_STRING(L"Instances");
Status = CreateKeyByRootKeyName(RegistryPath,&Instances,KEY_ALL_ACCESS,&InstancesKeyHandle);
if (!NT_SUCCESS(Status)) { return Status; } RtlInitUnicodeString(&SubValueName,L"DefaultInstance");
Status = SetValue(InstancesKeyHandle,&SubValueName,REG_SZ,DefaultInstances,sizeof(DefaultInstances));
if (!NT_SUCCESS(Status)) { ZwClose(InstancesKeyHandle); return Status; }
RtlInitUnicodeString(&Instances,L"VTIO");
Status = [...] |
|
发表于 2011-6-14 12:06:00
发表于 2011-6-17 21:22:59
