مكتبة الاْكواد

[AX302]

الخاصية الاولى للحصول على اسم الحاسوب 
الخاصية الثانية للحصول على اسم المستخدم

PHP كود :

Function GetComputerName:string;
begin
  Result := GetEnvironmentVariable('COMPUTERNAME');
end;

Function GetUserName:string;
begin
  Result := GetEnvironmentVariable('USERNAME');
end; 


طريقة الاستعمال : 

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetComputerName);
  ShowMessage(GetUserName);
end; 


---

الخاصية الاولى للحصول على الايبي الخارجي
الخاصية الثانية للحصول على الايبي الداخلي

PHP كود :

Function GetExternalIPAddress:string;
var HTTP : TIdHTTP;
begin
  HTTP := TIdHTTP.Create(Nil);
  try
    Result := HTTP.Get('http://bot.whatismyipaddress.com/');
  finally
    HTTP.Free;
  end;
end;

Function GetInternalIPAddress:string;
var IP : TIdIPWatch;
begin
  IP := TIdIPWatch.Create(Nil);
  try
   Result := IP.LocalIP;
  finally
    IP.Free;
  end;
end; 


طريقة الاستعمال : 
اضافة الوحدتين IdHttp و IdIPWatch الى قائمة الوحدات

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(GetExternalIPAddress);
 ShowMessage(GetInternalIPAddress);
end;