//判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; then abort ) then abort ) then abort; except on e:Exception do begin Application.MessageBox(PChar(E.Message), );//抛出异常信息 priMsg.ShowMsg('); //004=单位转换率设置错

今天同事问了我一件很怪异的事情,说她的office打不开了,如打开word或excel时,突然出现错误提示错误窗口"向程序发送命令时出现问题",分析原因才知道她安装了 AVG pc tuneup 2015防护软件,这个软件限制了office的运行,卸载之后便可以运行office, 总结一下,可用的方法如下: 1.打开office 安装目录 C:\Program Files\Microsoft Office\Office12 2.找到 WINWORD.exe: 3.点鼠标右键,属性---

Delphi中,除了应用程序主窗口会显示在任务栏上,其它窗口默认都不会显示在任务栏. Delphi中,除了应用程序主窗口会显示在任务栏上,其它窗口默认都不会显示在任务栏.没有MS开发环境中的ShowInTaskBar属性. 解决办法:1.重载窗口 CreateParams 方法以实现,ShowInTaskBar效果   procedure CreateParams(var Params: TCreateParams);override;   procedure Tform1.CreatePara

解决方法:找到 C:\Program Files (x86)\Microsoft Office\root\Office16\STARTUP目录下的MathType Commands 6 For Word 2016.dotm文件并删除; 此时不会再弹mathtype的错误窗口,mathtype选项也会消失.

在Delphi  多线程中出现“尚未调用CoInitialize错误”的解决方法 解决方法如下: function  TMyThread.ExecTimer: Boolean;begin  Result := False ;  FMyThreadExecfinish := False;  Screen.Cursor := crHourGlass;  CoInitialize(nil); // 一定要加上此行代码  try    TranspondClientBaseData_factory1(H

http://stackoverflow.com/questions/634587/delphi-why-do-i-sometimes-get-an-i-o-error-103-with-this-code I don't see what is wrong with automatic retry. I don't see that you can do anything else. If some other process is reading the file, then your Ap

1.在属性窗口找到ScriptErrorsSuppressed,选择"true",这个选择的意思是,如果网页上有出现错误命令,这个错误提示将被抑制 2.[项目管理那里,在项目上右击,选择"属性"]--[程序集信息]--[勾选上"使程序集com可见"],这个选择其实是让浏览器的javascript能找找到"external"对象,如果不明白,那不用理它,涉及浏览器的东西太复杂,你知道该这么用就OK了

使用FlashWindowEx函数: 一.设置FlashWInfoDelphi中TFlashWInfo申明如下:TypeTFlashWInfo = record cbSize : LongInt; hWnd : LongInt; dwFlags : LongInt; uCount : LongInt; dwTimeout : LongInt;end;例:varFWinfo: TFlashWInfo;beginFWinfo.cbSize := 20;FWinfo.hwnd := Applicati

这两天用webbrower写东西,有时候打开SSL加密站点时会出现”Invalid floating point operation.”的错误,上网搜了下,把解决方法贴上. 导致原因 在Delphi2011中须要通过浮点单位控制指令设置浮点运算单位.浮点单位控制指令控制着浮点运算的精度.四舍五入的方式以及特定的浮点运算是否触发异常.能够參阅Intel处理器的具体文档. 在Delphi2011中有函数能够直接訪问处理器的控制指令.比方,能够使用Set8087CW函数改变8087CW控制指令的值,从

这两天用webbrower写东西,有时候打开SSL加密网站时会出现”Invalid floating point operation.”的错误,上网搜了下,把解决方法贴上. 导致原因 在Delphi2011中需要通过浮点单位控制指令设置浮点运算单位.浮点单位控制指令控制着浮点运算的精度.四舍五入的方式以及特定的浮点运算是否触发异常.可以参阅Intel处理器的详细文档. 在Delphi2011中有函数可以直接访问处理器的控制指令.比如,可以使用Set8087CW函数改变8087CW控制指令的值,从

1.获取当前所有窗口 procedure TForm1.Button1Click(Sender: TObject);var szText: array[0..254] of char; hCurrentWindow :hwnd;beginhCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);while hCurrentWindow <> 0 dobegin    if GetWindowText(hCurrentWindow ,@szText,255

目的: 1. 窗口不在任务栏显示. 2. 窗口不显示在Alt+Tab的切换列表中. 3. 在任务管理器的应用程序列表中不显示. 示例: type TAppWndBrowser = class( TForm ) published procedure CreateParams( var Params: TCreateParams ); override; procedure WndProc(var Message: TMessage); override; end; implementation

需检查是否是以下这些情况: 1.  字段是不是精度不够. 2.  无主键 3.  字段允许为空 4.  字段类型不匹配 5.  ADO控件 CursorLocation的属性,默认值为"clUseClient",应设为"clUseServer".

"Authentication failed because outlook doesnt support any Resolved Question: "Authentication failed because outlook doesn't support any of the available authentication methods." 大意是不支付相关认证. 这要从两方面解决,一是服务器的接收连接器的认证和开放相关端口-25,110,587,995.. 另一

sss  

unit CreateImageForm; interface uses Windows, SysUtils, Variants, Classes, Graphics; procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle); implementation procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle); var rgn: H

不知道为什么,这个DEMO编译出来报错,运行不了,在QDAC群里问了一下也没人响应. 效果如下 主程序代码如下 unit Frm_Main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, QPlugins, qplugins

载入程序输入关键字: 双击进入程序 仔细看发现并没有跳转直接跳到这个mov,往上看发现retn上面有一个push,在这种编写手法当中这种组合相当于一个jmp, 跳到离它最近的一个值(在这就是004A5841)给它下个注释 然后在这两个地方下断点,尝试了一下执行发现不能断在这里,所以看看上面的程序 往上一直走然后发现又出现push和retn组合,给它做个注释 刚刚一路走上来发现了很多有用的东西,现在再回去看看,走到这下一个断点,因为前面一部分都是提示我们要需要输入哪些注册框 重新载入程序,点击ab

1.跳出错误法  ===================================================在主界面的implementation  {$R *.dfm} 下放入以下代码: procedure PatchInt3; var   NOP: Byte;   NTDLL: THandle;   BytesWritten: DWORD;   Address: Pointer; begin   if Win32Platform <> VER_PLATFORM_WIN32_NT

/* 窗口样式参考列表(都是GetWindowLong的GWL_STYLE风格,都是TCreateParams.Sytle的一部分),详细列表如下:https://msdn.microsoft.com/en-us/library/windows/desktop/ms632600(v=vs.85).aspx WS_POPUP - 弹出式窗口(不能与WS_CHILDWINDOW样式同时使用) (THintWindow.CreateParams使用,TCustomForm.CreateParams里的