Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GetComputerName API Call
Message
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00227405
Message ID:
00227795
Views:
46
>>Greetings,
>>
>>I need to be able to get the computer name and I am having some difficulties. Below is my sample code.
>>(VFP 3.0). I have also tried it my removing the @ symbol.
>>
>>**--Sample Code
>>DECLARE INTEGER GetComputerName IN Win32API STRING @cReturnBuffer, INTEGER nBufferSize
>>
>>LOCAL lcresult, cReturnBuffer, nBufferSize
>>lcresult = ""
>>cReturnBuffer = SPACE(1024)
>>nBufferSize = LEN(cReturnBuffer)
>>
>>nBufferSize = GetComputerName(@cReturnBuffer, nBufferSize)
>>
>>IF nBufferSize > 0
>> lcresult = LEFT(cReturnBuffer, nBufferSize)
>> ?lcresult
>>ENDIF
>>
>>
>>Thanks in advance,
>>
>Hi Scott,
>
>Both parameters need to be passed by reference:
>DECLARE SHORT GetComputerName IN Win32API;
>  STRING @lpbuffer, INTEGER @nSize
>lcbuffer = SPACE(260)
>lnsize = LEN(lcbuffer)
>llresult = (GetComputerName(@lcbuffer, @lnsize) # 0)
>IF llresult
>  ? LEFT(lcbuffer, lnsize)
>ENDIF
>The function actually returns a Boolean value. While a declaration of integer is probably more appropriate, I use a SHORT to help me distinguish the return value. In this case, a non-zero value equals true.
>

Hello George,
PMFJI but I tried using this API and it always returns DESKTOP on my machine which is the share name I use for Win95 direct cable connection, any ideas?

Regards

Pete

p.s. hope the project's going ok.
>hth,
Regards,
Peter J. Kane



Pete
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform