Delphi 使用API函数拔号

Delphi 快速查询文件，比较老的代码，搜索文件的地址需要手工输入哦，查询的结果会显示在空白处。返回查询的代码如下： 　　List := TStringList.Create;//创建字符传列表 　　try 　　 spec := ExtractFileName(filespec);//返回指定文件名 　　 RFindFile(ExtractFilePath(filespec));//返回指定路径 　　 Result := list;//函数返回值是List;

Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 str:string; 　　 hi,lo:integer; 　　begin 　　 str:=trim(edit2.Text); 　　 hi:=byte(str[1])-$a0; 　　 lo:=byte(str[2])-$a0; 　　 edit1.Text:=inttostr(hi)+inttostr(lo); 　　end;

delphi windows远程桌面链接源码，带代理功能，支持win2012 原创代码

Delphi 限制窗口最大化显示，当用户单击最大化按钮后，窗口稍微变大了一点，但并没有最大化，有时候，我们需要限制，不让窗口最大化，在编写实现此功能时，定义了WMGetMinMaxInfo，以下代码在函数中定义，用户操作按钮，激活函数： 　　with Message.MinMaxInfo^ do 　　begin 　　ptMaxSize.X := 400; //最大化时宽度 　　ptMaxSize.Y := 300; //最大化时高度 　　ptMaxPosition.X := 120; //最大化时左上角横坐标 　　ptMaxPosition.Y := 120; //最大化时左上角纵坐标 　　end; 　　Message.Result := 0; //通知Windows改变了minmaxinfo

Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。 　　self.ListView1.ViewStyle:=vsReport; 　　for i:=0 to Query1.FieldCount-1 do 　　begin 　　 TempColumn:=self.ListView1.Columns.Add; 　　 TempColumn.Caption:=Query1.Fields[i].FieldName; 　　end; 　　Query1.First; 　　while not Query1.Eof do 　　begin 　　 TempItem:=self.ListView1.Items.Add; 　　 TempItem.Caption:=Query1.Fields[0].AsString; 　　 for i:=1 to Query1.FieldCount-1 do 　　 begin 　　 TempItem.SubItems.Add(Query1.Fields[i].AsString); 　　 end; 　　 Query1.Next; 　　end;

如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下: 　　procedure TForm1.WMPowerBroadcast(var message: TMessage); 　　begin 　　 message.Result := BROADCAST_QUERY_DENY; 　　end;

Delphi 用获取路径的方法得到圆形窗体，制作实现一个非矩形窗口，可以说是一个不规则窗口了，圆形的窗口，标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体，然后设置窗口为透明模式，部分代码如下： 　　dc:=self.Canvas.Handle; 　　BeginPath(dc); 　　//根据路径创建不规则窗体 　　SetBkMode(dc,TRANSPARENT); 　　//设置为透明模式 　　 Ellipse(dc,20,20,220,220); 　　EndPath(dc); 　　region:=PathToRegion(dc); 　　SetWindowRgn(self.Handle,region,TRUE); 　　end;

Delphi 键盘钩子 封锁 windows 热键，封锁范围，可参见以下代码： 　　 keycost := LPKBDLLHOOKSTRUCT(lParam); 　　 if (keycost.vkCode=91) then//封锁win键 　　 exit; 　　 if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then 　　 exit; //封锁 ALT+TAB 　　 if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+F4 　　 if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+ESC 　　 if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)

Delphi 替换一个键盘按钮，将数字1改为a。将键盘所代表的键位重新定义并判断，得到一个不同的键位值。

Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些软件中经常会遇到，具体编写思路请下载源码研究。