Как сделать калькулятор в 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
;