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

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

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

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

Полнофункциональная функция для создания ярлыка с определенными параметрами.

Советы » Другое » Полнофункциональная функция для создания ярлыка с определенными параметрами.

Полнофункциональная функция для создания ярлыка с определенными параметрами.


uses


Windows, ShlObj, OLE2;

function

CreateLink(SrcFile,LnkFile,Descr:string):HRESULT; var

hres:HRESULT; psl:IShellLinkA; ppf:IPersistFile; wsz:array[0..MAX_PATH-1] of word; begin


hres:=CoCreateInstance(CLSID_ShellLink, nil,CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl);
if (SUCCEEDED(hres)) then begin
psl.SetPath(PChar(SrcFile)); psl.SetDescription(PChar(Descr)); hres:=psl.QueryInterface(IID_IPersistFile, ppf); if (SUCCEEDED(hres)) then begin
MultiByteToWideChar(CP_ACP, 0, PChar(LnkFile), -1, @wsz, MAX_PATH); hres:=ppf.Save(@wsz, TRUE); ppf.Release;
end;
end;
CreateLink:=hres;
end

;

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

Категории

Статьи

Советы

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