yuanzhi 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
..
PackageReadAddrBook.bdsproj 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
PackageReadAddrBook.dpk 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
PackageReadAddrBook.res 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
ReadAddrBook.bdsgroup 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
Readme.txt 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WABTester.bdsproj 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WABTester.dof 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WABTester.dpr 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WABTester.res 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
Wab.inc 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabApi.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabCode.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabDefs.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabIab.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabMem.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabNot.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabTags.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WabUtil.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WindowsAddressBook.dcr 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
WindowsAddressBook.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
wabtest.dfm 7497a8876c Create %!s(int64=9) %!d(string=hai) anos
wabtest.pas 7497a8876c Create %!s(int64=9) %!d(string=hai) anos

Readme.txt

Windows Address Book Viewer
----------------------------

The code in this archive is freeware. It allows you to view the contacts and their details from the Windows Address Book. Some of the source code is available freely from http://www.delphi-jedi.org however this component makes things a lot easier.

To install in Delphi 5:
Choose install component from the menu
Select windowsAddressBook.pas

There is also a demonstration program called WABTester.dpr

If you have any problems with the code you can email:
tarnawsky@dingoblue.net.au

Ps. It shouldnt be very difficult to make some changes to allow the editting/adding/deleting of contacts. I will leave this as an exercise for you.

Cheers,
Damian Tarnawsky
EZ Software
http://ezsoftware.tsx.org