อ่านชื่อของ Computer

อ่านชื่อของ Computer ที่ใช้งานอยู่ขณะนี้

Function Computername: String;
Var
   buf: Array [0..MAX_COMPUTERNAME_LENGTH] of Char;
   bufsize: DWORD;
Begin
   bufSize := Sizeof(buf);
   If GetComputername( buf, bufsize ) Then
     Result := buf
   Else
     Result := EmptyStr;
End;

ผู้เขียน Goragod

โพสต์เมื่อ 22 เม.ย. 2552 เวลา 18:52 น.

ความคิดเห็น 0

เปิดดู 3,007

ป้ายกำกับ Delphi

Related

^