+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟ (/showthread.php?tid=7884)
كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟ - Snyder - 25-05-2016
السلام عليكم اخوتي في الله
كما هو واضح من العنوان كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟
وشكرا مسبقا
RE: كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟ - wadoud - 26-05-2016
(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;
لا تنسى اعادة التشغيل.RE: كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟ - Snyder - 26-05-2016
جربت الكود قبل طرح السؤال ولم يعمل معي
RE: كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟ - h-farid - 26-05-2016
وعليكم السلام
جرب الكود مع تشغيل البرنامج كمسؤؤول (Administrator)
RE: كيف يتم تغيير اسم الجهاز برمجيا بالدلفي ؟ - wadoud - 27-05-2016
السلام عليكم أخي الحبيب
لقد أنشأت برنامجا كمحاولة لأجلك , لعله يعمل معك .
فقط الدعاء بالتوفيق والسداد.
تفضل أدناه:
RenamePC.rar (الحجم : 70.19 ك ب / التحميلات : 24)