paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* part of mantis 028134, shlwapi unit with strlogical*

Browse Source 
git-svn-id: trunk@30919 -
This commit is contained in:
marco 2015-05-26 17:56:59 +00:00
parent c402bffc69
commit b18365fb61
4 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7629,6 +7629,7 @@ packages/winunits-base/src/richedit.pp svneol=native#text/plain
packages/winunits-base/src/shellapi.pp svneol=native#text/plain
packages/winunits-base/src/shfolder.pp svneol=native#text/plain
packages/winunits-base/src/shlobj.pp svneol=native#text/plain
packages/winunits-base/src/shlwapi.pp svneol=native#text/plain
packages/winunits-base/src/stdole2.pas svneol=native#text/plain
packages/winunits-base/src/tmschema.inc svneol=native#text/plain
packages/winunits-base/src/typelib.pas svneol=native#text/plain

2
packages/winunits-base/fpmake.pp
View File

@ -46,6 +46,7 @@ begin
AddUnit('ole2');
AddUnit('activex');
AddUnit('shellapi');
AddUnit('shlwapi');
AddUnit('shlobj');
AddUnit('oleserver');
AddUnit('shfolder');
@ -82,6 +83,7 @@ begin
T:=P.Targets.AddImplicitUnit('oleserver.pp');
T:=P.Targets.AddImplicitUnit('richedit.pp');
T:=P.Targets.AddImplicitUnit('shellapi.pp');
T:=P.Targets.AddImplicitUnit('shlwapi.pp');
T:=P.Targets.AddImplicitUnit('shfolder.pp');
T:=P.Targets.AddImplicitUnit('shlobj.pp');
T:=P.Targets.AddImplicitUnit('winver.pp');

3
packages/winunits-base/src/buildwinutilsbase.pp
View File

@ -25,7 +25,8 @@ uses
ole2, activex, shellapi, shlobj, oleserver, shfolder, richedit,
imagehlp, wininet, uxtheme, dwmapi, multimon, htmlhelp, winutils,
comserv, winspool, imm, imm_dyn, nb30, win9xwsmanager, stdole2,
eventsink, typelib, libkinect10, urlmon;
eventsink, typelib, libkinect10, urlmon,
shlwapi;
implementation

25
packages/winunits-base/src/shlwapi.pp Normal file
View File

@ -0,0 +1,25 @@
unit shlwapi;
{
This file is part of the Free Pascal run time library.
shlwapi calls are parked here for now.
Copyright (c) 1999-2002 by Marco van de Voort,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
************************************************************************}
interface
{$mode delphi}
function StrCmpLogicalW(psz1, psz2: PWideChar): Integer; stdcall; external 'shlwapi.dll';
implementation
end.