摘要:
打开安装目录下的WORDFILE.TXT,加入/L14"Delphi" Nocase Line Comment = // Block Comment On = { Block Comment On Alt = (* Block Comment Off = } Block Comment Off Alt = *) Escape Char = ?String Chars = ' File Extensions = pas dpr/Delimiters = #$&()*+,-./;<>@[]^{}' /Function String = &qu 阅读全文
摘要:
1//调用键盘钩子,屏蔽功能键2functionkeyHookProc(nCode:Integer;LWParam:WPARAM;LLParam:LPARAM):LRESULT;stdcall;34var5hHk:HHOOK;67//创建勾子8hHk:=SetWindowsHookEx(13,@keyHookProc,HInstance,0);910functionkeyHookProc(nCode:Integer;LWParam:WPARAM;LLParam:LPARAM):LRESULT;//调用键盘钩子,屏蔽功能键11var12p:PKBDLLHOOKSTRUCT;13y:integer 阅读全文
摘要:
//调用键盘钩子,屏蔽功能键function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT; stdcall; var hHk :HHOOK; //创建勾子hHk:= SetWindowsHook... 阅读全文
摘要:
1functionSetTaskBar(LVisible:Boolean):Boolean;//隐藏-显示任务条2var3h:THandle;4begin5ifLVisiblethen6begin7h:=FindWindow('Shell_TrayWnd',nil);8ShowWindow(h,SW_SHOW);//隐藏任务条9end10else11begin12h:=FindWindow('Shell_TrayWnd',nil);13ShowWindow(h,SW_HIDE);//显示任务条14end;15Result:=true;16end; 阅读全文
摘要:
function SetTaskBar(LVisible: Boolean): Boolean; //隐藏-显示任务条var h: THandle;begin if LVisible then begin h:=FindWindow('Shell_TrayWnd',nil); Sh... 阅读全文
摘要:
对应的注册表键值HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr1不可用,0可用。 阅读全文
摘要:
即时通讯如雅虎通,腾讯QQ,微软MSN,AOL ICQ,goolge TALK,阿里巴巴 贸易通,淘宝旺旺等大大方便了我们的沟通和工作,在web2.0的时代,在你的网站网页上添加雅虎通,腾讯QQ,微软MSN,AOL ICQ,goolge TALK,阿里巴巴 贸易通,淘宝旺旺在线状态,让用户在你的网站上查看你的雅虎通,腾讯QQ,微软MSN,AOL ICQ,goolge TALK,阿里巴巴 贸易通,淘宝旺旺在线状态,直接与你沟通,就显得很重要了,下面我总结了几款常用到的在线状态代码,希望在你添加到网页时用到.1.如何在网页上显示腾讯QQ在线洽谈?QQ在线咨询代码(qq在线交谈代码/qq在线客服代码 阅读全文
摘要:
1、使用标准 Windows 库 顾名思义2、在静态库中使用 MFC将DLL的相关代码打包到EXE中,生成的文件较大,但可以在没有相关DLL的机器上运行3、在共享DLL中使用MFC 打包时DLL的相关代码没有包含到EXE中,生成的目标文件比较少,运行时系统中需要有相关的DLL支持 阅读全文
摘要:
发送消息DELPHI代码 View Code 1//VCUnicode项目2var3wData:String;4h:HWND;5cds:TCopyDataStruct;6begin7wData:='1234567890'+Chr(0);8cds.dwData:=0;9cds.cbData:=Length(wData);10cds.lpData:=PWideChar(wData);11SendMessage(h,WM_COPYDATA,0,LongWord(@cds));12end1314//非VCUnicode项目15var16wData:WideString;17h:HWND 阅读全文
摘要:
VC Unicode项目发送消息DELPHI代码var wData: String; h: HWND; cds: TCopyDataStruct;begin wData:= '1234567890'+ Chr(0); cds.dwData:= 0; cds.cbData:= Length(wData); cds.lpData:= PWideChar(wData); SendMessage(h, WM_COPYDATA, 0, LongWord(@cds));end非VC Unicode项目var wData: WideString; h: HWND; cds: TCopy... 阅读全文