Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получить или установить имя компьютера
{ Retrieve the computer name }
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
;
procedure
TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetComputerName);
end
;
{ Set the computer name }
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
;
procedure
TForm1.Button2Click(Sender: TObject);
begin
if
SetComputerName('NewComputerName') then
ShowMessage('Computer Name Reset Setting will be used at next startup.')
else
ShowMessage('Computer Name Not Reset');
end
;