黑白程式

摘要： 详细说明下具体实现方法 1、在user处添家一个“ShellAPI”，这样就可以代用这个API了，如：。 uses Windows, Messages,...., shellapi; 2、声明两个常量 const mousemsg = wm_user + 1; //自定义消息，用于处理用户在图标上点击鼠标的事件 iid = 100; //用户自定义数值，在TnotifyIconDataA类型全局... 阅读全文

摘要： 其实也就是一个函数：SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); 在程序运行的初期，首先激活窗体FormCreate()过程中的代码，通过SetWindowLong (Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)这条语句就可以实现从系统任务条上... 阅读全文

摘要： procedure TForm1.FormCreate(Sender: TObject); begin Wnd[0]:=FindWindow('Shell_TrayWnd',nil); Wnd[1]:=FindWindowEx(Wnd[0],HWND(0),'Button',nil); Wnd[2]:=FindWindow('Shell_TrayWnd',nil); Wnd[2]:=FindWin... 阅读全文

摘要： 由于网络上Delphi代码很多，学习也很是方便，参考下测试做个截屏程序，尽管只是截取 全屏，但是其实原理雷同，保存起来，以备参考，重点类：TCanvas，screen（全局）， TBitmap==。 procedure TForm1.btn1Click(Sender: TObject); var Fullscreen:Tbitmap; FullscreenCanvas:TCanvas; ... 阅读全文