Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Устанавливаем свой WallPaper для Windows
program
wallpapr; uses
Registry, WinProcs; procedure
SetWallpaper(sWallpaperBMPPath : String; bTile : boolean ); var
reg : TRegIniFile;
begin
{ Изменяем ключи реестра
HKEY_CURRENT_USER
Control PanelDesktop
TileWallpaper (REG_SZ)
Wallpaper (REG_SZ)}
reg := TRegIniFile.Create('Control PanelDesktop' );
with reg do begin
WriteString( '', 'Wallpaper',
sWallpaperBMPPath );
if( bTile )then
begin
WriteString('', 'TileWallpaper', '1' );
end else begin
WriteString('', 'TileWallpaper', '0' );
end;
end;
reg.Free;
{Оповещаем всех о том, что мы
изменили системные настройки}
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
begin
{ пример установки WallPaper по центру рабочего стола}
SetWallpaper('c:winntwinnt.bmp', False );
end
.