Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получение текста из буфера обмена без использования модуля Clipbrd
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение текста из буфера обмена без использования модуля Clipbrd
Wnd - Handle окна, получающего доступ к буферу обмена;
Str - строка, в которую будет скопирован текст;
Зависимости: Windows
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 22 августа 2002 г.
***************************************************** }
function GetClipboardText(Wnd: HWND; var
Str: string
): Boolean;
var
hData: HGlobal;
begin
Result := True;
if
OpenClipboard(Wnd) then
begin
try
hData := GetClipboardData(CF_TEXT);
if
hData <> 0 then
begin
try
SetString(Str, PChar(GlobalLock(hData)), GlobalSize(hData));
finally
GlobalUnlock(hData);
end
;
end
else
Result := False;
Str := PChar(@Str[1]);
finally
CloseClipboard;
end
;
end
else
Result := False;
end
;
Пример использования:
functionTForm1.Button2Click(Sender: TObject) var
Str: string
; begin
GetClipboardText(Handle, Str); ShowMessage(Str); end
;