我目前需要使用到JACKKCG大大所提供http://delphi.ktop.com.tw/topic.php?method=AddScore&topic_id=22388&ToMemberID=411Shell監控的一些功能，可是拷貝這些程式碼下來貼在我的D6上面，卻一直會出現Access Violation ad address 0046BB61 ...ooxx...Write of address 00000004 我有追蹤過，會卡在function SHNotify_Register(hWnd: Integer): Bool裡面，只要一執行到ps.bWatchSubFolders := 1;這一行就會跳出來，請問有辦法解決這個問題嗎？

ps is declared as a pointer, you need to allocate memory for it first. BTW, Windows 2000 and later only? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shchangenotifyregister.asp

引言: ps is declared as a pointer, you need to allocate memory for it first. BTW, Windows 2000 and later only? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shchangenotifyregister.asp

感謝您的回答，但是我真的不知道該怎麼先給他一塊區間使用，是否可以告訴我，或者有相關的參考資料我可以查詢的？謝謝！

In function SHNotify_Register:    ps:PIDLSTRUCT; m_hSHNotify := SHChangeNotifyRegister(hWnd, (SHCNF_TYPE Or SHCNF_IDLIST), (SHCNE_ALLEVENTS Or SHCNE_INTERRUPT), WM_SHNOTIFY, 1, @ps); Above is NOT tested

引言: In function SHNotify_Register: ps:PIDLSTRUCT; m_hSHNotify := SHChangeNotifyRegister(hWnd, (SHCNF_TYPE Or SHCNF_IDLIST), (SHCNE_ALLEVENTS Or SHCNE_INTERRUPT), WM_SHNOTIFY, 1, @ps); Above is NOT tested < face="Verdana, Arial, Helvetica"> Thanks!! It's Works!!!!!!!!!!!!