From 42f87380030424a6484d3533be06fbec6b2eda1a Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 1 Sep 2008 11:54:49 +0000
Subject: [PATCH]  * shappbarmessage missed a indirection (pointer), bug #12024

git-svn-id: trunk@11684 -
---
 packages/winunits-base/src/shellapi.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/winunits-base/src/shellapi.pp b/packages/winunits-base/src/shellapi.pp
index af951e5cb8..2aee096682 100644
--- a/packages/winunits-base/src/shellapi.pp
+++ b/packages/winunits-base/src/shellapi.pp
@@ -1178,7 +1178,7 @@ Type
        PAPPBARDATA        = ^_AppBarData;
 
 
-Function SHAppBarMessage(dwMessage : DWORD; pData : APPBARDATA):UINT_PTR;external 'shell32.dll' name 'SHAppBarMessage';
+Function SHAppBarMessage(dwMessage : DWORD; pData : pAPPBARDATA):UINT_PTR;external 'shell32.dll' name 'SHAppBarMessage';
 
     //
     //  EndAppBar