W2K - finding associated filetype for current user 1

[Johnomill]

Hi!

I want to search in the registry in W2K for a program that is associated with ".out". I can do it in W98 but in W2K it is located under the (current) user:
HKEY_USERS\<encrypted uservalue>\software\...\FileExts

I know how to get my computername and username, but how do i get the encrypted value???

Regards,

John

 

[JustinEzequiel]

not sure if this works with 2000 but...

Const MAX_FILENAME_LEN = 260
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: [URL unfurl="true"]http://www.allapi.net/[/URL]
    'E-Mail: KPDTeam@Allapi.net
   Dim i As Integer, s2 As String
   Const sFile = "C:\Windows\Readme.txt"

   'Check if the file exists
   If Dir(sFile) = "" Or sFile = "" Then
        MsgBox "File not found!", vbCritical
        Exit Sub
   End If
   'Create a buffer
   s2 = String(MAX_FILENAME_LEN, 32)
   'Retrieve the name and handle of the executable, associated with this file
   i = FindExecutable(sFile, vbNullString, s2)
   If i > 32 Then
      MsgBox Left$(s2, InStr(s2, Chr$(0)) - 1)
   Else
      MsgBox "No association found !"
   End If
End Sub

 

[Johnomill]

thanks! it works

Regards,

John

 

[JustinEzequiel]

always glad to help

 

[Johnomill]

i made some small addition to the code. I create a dummyfile with the extention i need.

f = FreeFile
Open &quot;C:\a.<extention you want>&quot; For Output as #f
Print #f, &quot;&quot;
Close #f

in code in previous message:
Const sFile = &quot;C:\a.<extention you want>&quot;

After finding the executable i delete the dummyfile with the filescripting object.

Greetings,

John