// 新增行后,默认首列 procedure TForm1.ADOQuery1AfterInsert(DataSet: TDataSet);begin  with DBGridEh1 do  begin    SelectedIndex := 0;  end;end; // 行选中 DBGridEh_Yingfu_SearchQK.SelectedRows.SetCurrentRowSelected(True); //选中单元格 DBGridEh1.SelectedField := ADOQue

Delphi编程获取系统当前进程.窗口句柄.文件属性以及程序运行状态. uses TLHelp32,PsAPI; (1)显示进程列表:procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32;found : boolean;Hand : THandle;P:DWORD;s:string;beginListBox1.Items.Clear ;Hand := CreateToolhelp32Snapshot(TH

var EIP: Cardinal; procedure GetEIP(); stdcall; asm pop eax; mov EIP,eax; push eax; end; procedure TForm1.Button1Click(Sender: TObject); begin GetEIP(); ShowMessage()); end; 记录一下.由C++转成Delphi的获取EIP代码.

delphi中获取汉字的拼音首字母1.py: array[216..247] of string = ({216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL' + 'WBTGKJFYXJWZLTBN' +

用Delphi直接获取bmp图片的像素,并存储显示出.(此像素主要用在LED上显示).希望高手能给出代码啊!! function getImagePixels(f: string): Integer; var   jpg: TJpegImage;   bmp: TBitmap; begin   Result := 0;   if not FileExists(f) then     Exit;   if SameText(ExtractFileExt(f), '.bmp') then   beg

delphi 自动获取串口   https://blog.csdn.net/Nevermore_anger/article/details/79012875    版权声明:本文为博主原创文章,未经博主允许不得转载. https://blog.csdn.net/Nevermore_anger/article/details/79012875 如果PC端串口x存在且没有被占用,我们用TMScomm控件可以顺利打开并且关闭串口x,如果该端口x被占用或者不存在则会出现错误.利用这个原理,通过try强行

在Android里,用java通过实现BroadcastReceiver接口,就可以获得Intent消息.可是Delphi程序不能直接实现JBroadcastReceiver,如何能够实现类似Java的BroadcastReceiver功能呢? 幸运的是Delphi提供了TJFMXBroadcastReceiver类实现了BroadcastReceiver,我们便可以以此达到目的. 下面的程序片段举例,实现如何在Delphi下获取USB外设拔插的消息. uses System.SysUtils,

delphi 动态获取文件类型的图标.txt我不奢望什么,只希望你以后的女人一个不如一个.真怀念小时候啊,天热的时候我也可以像男人一样光膀子!在应用程序的编写中,组合框(ComboBox).列表框(ListBox).等常见的部件,通常不仅要用于显示文字,而且还要显示其与文字相关的图标.在一般的Windows应用程序中,这些图标的显示都要随列出的显示文本的变化而变化,例如在组合框中列出当前目录下的所有文件时,在组合框左边就显示与文件名相关联的图标,这就是所谓的动态图标.在 Delphi中使用动态图

Delphi实现获取句柄并发送消息的方法 本文以实例形式详细说明了Delphi获取句柄并发送消息的方法,具体用法说明如下: 查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄 查找子窗体: childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API, EnumChildWindows(主创体句柄,@回调函数,用户参数); 用这个函数需要自己写一个回

uses DateUtils;DateTimeToUnix(Now) 可以转换到unix时间,但是注意的是,它得到的时间比c语言中time()得到的时间大了8*60*60这是因为Now是当前时区的时间,c语言中time()是按格林威治时间计算的,北京时间比格林威治时间多了8小时DateTimeToUnix(Now)-8*60*60 就和c语言中time()得到的一样了 但我进一步研究DateTimeToUnix函数时发现,Delphi中的时间没有经过任何的转换,是直接读取系统时间 我试着改变当前

取文件名 ExtractFileName(FileName); 取文件扩展名: ExtractFileExt(filename); 取文件名,不带扩展名: 方法一:   Function ExtractFileNameNoExt(FileString: String): String;   Var   FileWithExtString: String;   FileExtString: String;   LenExt: Integer;   LenNameWithExt: Integer;

转载自 http://www.cnblogs.com/jieke/archive/2013/01/11/2855782.html 本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法. 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息.在属性菜单中会列 出该文件的创建时间.修改时间和访问时间.这些信息常常是很有用的,它们的设置一般都是由操作系统(也就 是由Dos/Windows等等)自动完成的,不会让

1.通过API函数GetPixel(),获取某个点的颜色值; var PT : TPoint; C : TColor; DC : HDC; hwd : THandle; I : integer; begin GetCursorPos(PT); hwd := WindowFromPoint(PT); DC := GetDC(HWD); C := GetPixel(DC,PT.x,PT.y); // self.color := c; //设置窗体颜色 edit1.text := FORMAT($%.

异常堆栈有利于分析程序的错误,Delphi的Exception有StackTrace属性,但是值为空,因为StackTrace的信息收集Delphi委托给了第三方组件来完成,真是脑子有毛病! 借助于madCollection中的madExcept可以解决这个问题 1)安装madCollection.exe 2)打开Delphi开发工具,打开项目,点击主菜单Project→MadExcept Settings,勾选enable madExcept 3)这样程序中出现的未处理异常就会系统给出madE

方法一:使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取. uses SHDocVw, MSHtml; function GetUserAgent: string;var  Doc: IHTMLDocument2;  win: IHTMLWindow2;  wb: TWebBrowser;begin  Result := '';  try    wb := TWebBrowser.Create(nil);    try      wb.Navigate('about:b

前几天在CSDN社区看到一篇<如何得到自身单元名称>的帖子,其中一位名为sdzeng网友给出了答案.受此启发,自己写了一个函数,用来获取指定类的所有祖先类的名称及其所在的单元名称. //参数说明://AClass:需要获取祖先类的类//ASeries:是一个字符串列表,用来存放返回的祖先类及其所在单元的名称procedureGetInheritanceSeries(AClass:TClass;outASeries:TStringList);varPTD:PTypeData;PTI:PTypeI

jq代码: $("td").click(function () { var tdHtml = $(this).attr("html"); var index = $(this).parents("tr").find("td").index($(this));//获取当前td在tr种得索引 var thAry = $('thead tr th');//获取thead tr th,也就是头标的th console.log(thAr

前因后果 调用一门锁的dll实现读取酒店IC卡数据,直接用Readme里的方法出错. 函数声明: 一.读卡函数    ************************ Delphi 调用 *************************    * function DLL_Read:PChar;                external 'AnLock_2012.dll'; stdcall;    *********************************************

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

function GetFileSize(const fName: AnsiString): Int64; var hFile: THandle; begin hFile := _lopen(PAnsiChar(fName), OF_READ); Result := FileSeek(hFile, Int64(), ); _lclose(hFile); end; 此函数可以快速获取文件大小,即使文件已经被其它程序锁定.

以下方法为网上搜集整理,留做备份,随时更新 一:通过URL获取 CanGetIECookie(URL,g_cookie); function   CanGetIECookie(const   URL:   string;   var   Cookie:   string):   boolean;  var      lpvBuffer:   array[0..1000]   of   byte;      lpdwBufferLength:   cardinal;  begin      lpd