ljz9425的专栏

Delphi创建OCX控件非常的方便，但IE调用时弹出的安全认证非常麻烦，有时OCX也不需要界面，IE调用时需要隐藏，非常不方便。在DELPHI中创建OCX实现安全接口和创建事件中修改部分代码实现安全接口继承：IObjectSafety重载方法： function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions, //安全接口 pdwEnabledOptions: PDWORD)

usesActiveX;initialization  CoInitialize(nil);Finalization  CoUninitialize();

//取Exif信息function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;var  PropSize: UINT;  PropItem: PPropertyItem;  S:PChar;  S1,S2:String;begin  PropSize := GPImage.GetPropertyItemSize(ItemID);  i

打开安装目录下的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 Exte

//调用键盘钩子，屏蔽功能键function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT; stdcall; var hHk :HHOOK; //创建勾子hHk:= SetWindowsHookEx(13, @keyHookProc, HInstance, 0);functi

function SetTaskBar(LVisible: Boolean): Boolean; //隐藏-显示任务条var h: THandle;begin if LVisible then begin h:=FindWindow('Shell_TrayWnd',nil); ShowWindow(h, SW_SHOW); //隐藏任务条 end else

VC Unicode项目发送消息DELPHI代码var wData: String; h: HWND; cds: TCopyDataStruct;begin wData:= '1234567890'+ Chr(0); cds.dwData:= 0; cds.cbData:= Length(wData); cds.lpData:= PWideCh

控件测试 串口

unit AviWriter; ///////////////////////////////////////////////////////////////////////////// // // // AviWriter -- a component to create rudimentary AVI files

<br />unit AviWriter; ///////////////////////////////////////////////////////////////////////////// // // // AviWriter -- a component to create rudimentary AVI files

library Properties;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your