delphi获取程序所在目录 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMes...
静态方式： 1、新建VCLFormsApplication； 2、打开菜单Project-Application-Appearance； 3、在CustomStyles中可选择所有默认带的皮肤样式； 4、设置Defaultstyle后，启动软件后便以默认的样式显示界面。...
var P: TPoint; ahwnd:hwnd; rec:Trect; begin GetCursorPos(P); //取得当前鼠标所在窗体的句柄 ahwnd:=WindowFromPoint(P); GetWindowRect(form1.Handle,rec); Self.Caption :='桌面坐标'+ Format('X: %d, Y: %d',[P.X, P.Y])+' REC：'+in...
function GetHost(TheURL: string): String; var FURL: String; begin FURL := TheURL + '555'; if pos(UpperCase('http://'), UpperCase(FURL)) 0 then begin Delete(FURL, 1, Length('http://')); end; Result := Copy(FURL, 1, pos('/', FURL) - 1); end;...
近来一段时间忙的慌，接了个帮人升级系统的小单子。其中涉及到将DbGrid的数据转到Excel文件并保存的功能，其实本身倒也不难。只是有些麻烦。想想这种功能，肯定有先人已经写好的...
这个例子是我原来写的一个完成端口演示程序，没有经过严格的稳定性校验，只是做为如何编写的一个样本，仅供大家参考，下面是完成端口的简单介绍： “完成端口”模型是迄今为止...
onkeypress事件中写一下代码: if Key=#13 then SelectNext(ActiveControl,True,True);...
delphi 实现打开文件定位 可以实现文件打开后定位到那个文件而且不执行它. 代码： 用shellExecute 打开一个文件夹，那如何打开一个文件夹并选中指定的文件呢。 下面一个函数就可以就可...
http://www.freedelphitips.com/the-status-bar-on-the-release-of-multiple-processes.html Delphi 中TStatusbar上通常不允许放其它组件。但是经常有需求要在右下角的状态栏上放置进程条以达到更好的显示效果，...
program Arp; {$APPTYPE CONSOLE} uses windows,IpHlpApi, IpTypes, Packet32,WinSock,math; const MAC_SIZE = 6; type MACADDRESS = array[0 .. MAC_SIZE - 1] of UCHAR; type ETHERNET_HDR = packed record Destination: MACADDRESS; Source: MACADDRESS; P...