دخول

Snyder · 25-05-2016, 09:55 AM

السلام عليكم اخوتي في الله
كما هو واضح من العنوان كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟
وشكرا مسبقا

wadoud · 26-05-2016, 01:38 AM

(25-05-2016, 09:55 AM)Snyder كتب : السلام عليكم اخوتي في الله
كما هو واضح من العنوان كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟
وشكرا مسبقا

وعليكم السلام

تفضل أخي لعل هذا ينفعك:

كود :
function GetComputerName: string; 
var 
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char; 
  Size: Cardinal; 
begin 
  Size := MAX_COMPUTERNAME_LENGTH + 1; 
  Windows.GetComputerName(@buffer, Size); 
  Result := StrPas(buffer); 
end; 

function SetComputerName(AComputerName: string): Boolean; 
var 
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char; 
  Size: Cardinal; 
begin 
  StrPCopy(ComputerName, AComputerName); 
  Result := Windows.SetComputerName(ComputerName); 
end;

لا تنسى اعادة التشغيل.

Snyder · 26-05-2016, 08:30 AM

جربت الكود قبل طرح السؤال ولم يعمل معي

h-farid · 26-05-2016, 06:49 PM

وعليكم السلام

جرب الكود مع تشغيل البرنامج كمسؤؤول (Administrator)

wadoud

السلام عليكم أخي الحبيب
لقد أنشأت برنامجا كمحاولة لأجلك , لعله يعمل معك .
فقط الدعاء بالتوفيق والسداد.

تفضل أدناه:

RenamePC.rar (الحجم : 70.19 ك ب / التحميلات : 24)

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة