>hello Dear friends!
>
>I wanna get the computer name, i have a project in Visual Basic that does it, but i´m trying to convert to Visual FoxPro and ai having GPF when i execute it.
>
>The Project in Visual Basic is:
>
>Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long
>
>Private Sub Command1_Click()
> Dim PCName As String
> Dim P As Long
> P = NameOfPC(PCName)
> Text1.Text = PCName
>End Sub
>
>Function NameOfPC(MachineName As String) As Long
> Dim NameSize As Long
> Dim X As Long
> MachineName = Space$(16)
> NameSize = Len(MachineName)
> X = GetComputerName(MachineName, NameSize)
>End Function
>
>
>And My Visual FoxPro program is:
>
>Declare String GetComputerName In Kernel32
>P = NameOfPC()
>
>
>Procedure NameOfPC
> MachineName = " "
> NameSize = Len(MachineName)
> X = GetComputerName()
> Return X
>
>What i´m doing wrong????
>
>Thanks
Hi Anderson:
Use the following:
DECLARE SHORT GetComputerName IN Win32api;
STRING @lpBuffer, INTEGER @nSize
lcbuffer = SPACE(16)
lnsize = LEN(lcbuffer)
IF (GetComputerName(@lcbuffer, @lnsize) # 0)
lcbuffer = LEFT(lcbuffer, lnsize)
ELSE
lcbuffer = ""
ENDIF
hth,
George
Ubi caritas et amor, deus ibi est