ect; var Action: TCloseAction); begin file://在程序退出的同时删除监视 if Boolean(m_pidlDesktop) then SHNotify_Unregister; end;
procedure TForm1.Button1Click(Sender: TObject); file://Button1的Click消息 begin m_hSHNotify:=0; if SHNotify_Register(Form1.Handle) then begin file://注册Shell监视 ShowMessage(''''Shell监视程序成功注册''''); Button1.Enabled := False; end else ShowMessage(''''Shell监视程序注册失败''''); end;
procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption := ''''打开监视''''; end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
