极点博客 网络软件、编程技术博客

获取本机IP地址的delphi函数

uses
WinSock;

function LocalIP: String;
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of AnsiCha

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:169 评论:0

delphi DCC32.exe 参数说明

DCC32 参数说明
它的編譯器參數如下:
选项    描述
Aunit=alias 设置单元别名
B      编译所有单元
CC     编译控制台程序
CG     编译图形界面程序
Ddefines  编译条件符号定义
Epath    可执行文件输出路径
Foffset   查找运行期间错误
GD     生成完整.Map文件
GP     生成.Map文件Public段

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:141 评论:0

Delphi程序获取自身运行目录的方法(取运行目录)

Delphi 在启动应用程序时与 C 语言一样会传递命令行参数给应用程序,第一个参数(索引号为零)表示应用程序本身的文件名(包括完整的路径),这个 String 参数由函数 ParamStr(0) 返回。
顺便说一句,Delphi 提供了分析文件名的多个函数,如果你需要从文件名中得到路径名,可用下面的两个函数,这两个函数有一点点微小的差别:

ExtractFilePath(FileName:String) 该函数返回路径名,其结尾字符总是“\”

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:135 评论:0

Delphi文件操作函数

//判断文件是否存在 FileExists
//判断文件夹是否存在 DirectoryExists
//删除文件 DeleteFile; Windows.DeleteFile
//删除文件夹 RemoveDir; RemoveDirectory
//获取当前文件夹 GetCurrentDir
//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory
//获取指定驱动器的当前路径名 Ge

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:115 评论:0

删除文件夹及所有文件

1.既然是windows平台上, 就用shell API吧. 下面是一个例子:


PHP 代码:


uses ShellAPI;



function DeleteDirectory(const sDir : string) : Boolean;

var

 &

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:114 评论:0

鼠标交换左右键

本例通过注册表控制


注:使用注册表要有User 子句中添加 Registry 单元




 



  1. procedure TForm1.Button1Click(Sender: TObject);

  2. var

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:141 评论:0

delphi打开文件夹并定位到一个文件

用shellExecute 打开一个文件夹,那如何打开一个文件夹并选中指定的文件呢。

下面一个函数就可以就可以做到:

filepath:=F:手机相关winceMicrosoft Pocket PC 2003 SDK.msi;

ShellExecute(0, nil, PChar(‘explorer.exe’),PChar(‘/e, ‘+ ‘/select, ‘ + filepath), nil, SW_NORMAL);

标签: delphi基础

作者:xtpyeihc 分类:先前文章 浏览:116 评论:0