| |
|
|
|
Description:
GetComputerName determined whom names the current Systems.
Deklaration:
Def @GetComputerName(2) !kernel32,GetComputerNameA
Parameter:
1.Parameter: Memory-Variable, The whom Systemnamen aufnimmt. 2.Parameter: 4 byte large Memory-Variable, in the The Size the Bereichs of Parameter 1 in Bytes standing. Kehrt The function back, standing here The length the Systemnamens.
Return Value:
1 with success, 0 with failure.
Examples:
CompileMarkSeparationDef @GetComputerName(2) !"kernel32","GetComputerNameA"
Declare CSize#,CName#,Fehler&
Windowstyle 31
Windowtitle "Systemnamen ermitteln"
Window 0,0-640,440
Dim Csize#,4
Dim CName#,256
LONG Csize#,0=256
LET FEHLER&=@GetComputerName(CName#,Csize#)
PRINT "API Fehlercode="+@STR$(Fehler&)
Print "Systemname="+@String$(CName#,0)
Print "Länge mit abschließendem Nullbyte="+@STR$(@Long(CSize#,0))
Dispose CName#
Dispose Csize#
While 0=0
Waitinput
wend
[keywords:65b4416dab] computer system name names Computernamen Systemnamen detect read [/keywords:65b4416dab] |
|
|
| |
|
|