Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Показать диалог выбора компьютера

Советы » Сеть » Показать диалог выбора компьютера

{ 
  The "Choose Computer" is a dialog provided by network services 
  (NTLANMAN.DLL) for Windows 2k/NT/XP 
  to display the servers and their computers. 
} 

type

TServerBrowseDialogA0 = function

(hwnd: HWND; pchBuffer: Pointer; cchBufSize: DWORD): bool; stdcall

; function

ShowServerDialog(AHandle: THandle): string

; var

ServerBrowseDialogA0: TServerBrowseDialogA0; LANMAN_DLL: DWORD; buffer: array

[0..1024] of

char; bLoadLib: Boolean; begin

LANMAN_DLL := GetModuleHandle('NTLANMAN.DLL'); if

LANMAN_DLL = 0 then

begin

LANMAN_DLL := LoadLibrary('NTLANMAN.DLL'); bLoadLib := True

; end

; if

LANMAN_DLL <> 0 then

begin

@ServerBrowseDialogA0 := GetProcAddress(LANMAN_DLL, 'ServerBrowseDialogA0'); DialogBox(HInstance, MAKEINTRESOURCE(101), AHandle, nil

); ServerBrowseDialogA0(AHandle, @buffer, 1024); if

buffer[0] = '' then

begin

Result := buffer; end

; if

bLoadLib then

FreeLibrary(LANMAN_DLL); end

; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

label1.Caption := ShowServerDialog(Form1.Handle); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com