Keskustelu: Ohjelmointikysymykset: VB6: VB-aiheinen kymysys...

Please, olkaa nyt joku niin ystävällinen...

Miten saan omatekele asenna.exe'ni tsekkaamaan
automaattisesti aktiivisena olevan käyttäjäprofiilin
XP:ssä, eli siis en tahdo, että ohjelma lyö kuvakkeet yms.
C:\Documents and Settings\All Users\..., vaan
C:\Documents and Settings\"current user"\...

...ja tee minut onnelliseksi!

PS. Koodivinkeissä ollut API-funktio "GetUserName"
ei tuottanu toivomaani tulosta, mitä tein väärin..?

Jes, ohjelmoivathan ne tytöt/naisetkin.

Yes,...musta on kiva asennella kauniita
kuvia TYÖPÖYDÄLLE...
But, I really need your help!

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Form_Load()
On Error Resume Next
    Dim sBuffer As String
    Dim lSize As Long


    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        tarkista_user = Left$(sBuffer, lSize)
        Else
        tarkista_user = vbNullString
    End If
    MsgBox tarkista_user
End Sub

Tuolla saa tuon userin näkymään msgboxissa.Eli tuotta soveltamalla saat jotenkin varmaan viritettyä.

Oletko tutustunut vielä tähän?

MsgBox Environ$("username")  'käyttäjätunnus

MsgBox Environ$("userprofile")  'profiilikansio

MsgBox Environ$("userprofile") & "\Työpöytä"   'työpöytäkansio

yhdellä rivillä

hohoo kirjoitti:

MsgBox Environ$("userprofile") & "\Työpöytä"   'työpöytäkansio

Tohon ei kannata luottaa. Entä jos käyttis ei olekaan suomenkielinen?

Kiitos oikein kovasti kaikille!!!