25-05-2016, 09:55 AM
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;
لا تنسى اعادة التشغيل.26-05-2016, 08:30 AM
جربت الكود قبل طرح السؤال ولم يعمل معي
26-05-2016, 06:49 PM
وعليكم السلام
جرب الكود مع تشغيل البرنامج كمسؤؤول (Administrator)
جرب الكود مع تشغيل البرنامج كمسؤؤول (Administrator)
27-05-2016, 12:42 AM
السلام عليكم أخي الحبيب
لقد أنشأت برنامجا كمحاولة لأجلك , لعله يعمل معك .
فقط الدعاء بالتوفيق والسداد.
تفضل أدناه:
[attachment=3301]
لقد أنشأت برنامجا كمحاولة لأجلك , لعله يعمل معك .
فقط الدعاء بالتوفيق والسداد.
تفضل أدناه:
[attachment=3301]