onnection_proxy; result := internetgetconnectedstate(@dwconnectiontypes, 0); end;
end. //错误信息常量 unit head;
interface const c_err_getlocalip = '获取本地ip失败'; c_err_getnamebyipaddr = '获取主机名失败'; c_err_getsqlserverlist = '获取sqlserver服务器失败'; c_err_getuserresource = '获取共享资失败'; c_err_getgrouplist = '获取所有工作组失败'; c_err_getgroupusers = '获取工作组中所有计算机失败'; c_err_getnetlist = '获取所有网络类型失败'; c_err_checknet = '网络不通'; c_err_checkattachnet = '未登入网络'; c_err_internetconnected ='没有上网'; c_txt_checknetsuccess = '网络畅通'; c_txt_checkattachnetsuccess = '已登入网络'; c_txt_internetconnected ='上网了';
implementation
end.
得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255); end; 注:MySysPath为SYSTEM路径
得到程序的路径 ExtractFileDir(Application.Exename);
察看文件是否存在 FileExists(FileName:String):Boolean;
改变文件扩展名 ChangeFileExt(FileName:String)
得到文件的扩展名 ExtractFileExt(FileName:String):String;
如何取得Windows的临时文件目录? 适合版本:Delphi 3,2.0,1.0
Windows 95 & NT都指定了放置临时文件的目录,然而,用户能改变临时目录的位置而不使用缺省的目录。这篇文章的目的是告诉你如何得到Windows 95 & NT当前的临时目录位置。这个Windows API函数 GetTempPath就是解决这个问题的。其函数原形为:
DWORD GetTempPath(DWORD nBufferLength, LPTSTR lpBuffer);
下面的例子示范如何使用:
function GetTempDirectory: String; var TempDir: array[0..255] of Char; begin GetTempPath(255, @TempDir); Result := StrPas(TempDir); end;
备注:临时目录的确定原则: 1,如果有TMP环境变量则临时目录为TMP指定的目录 2,如果没有TMP环境变量而有TEMP环境变量,则为TEMP变量指定的目录 3,如果TMP和TEMP都没有定义,则取当前目录为临时目录
程序不出现在任务栏 一般Windows 95运行程序时都会在任务栏上出现按钮,如果你的程序是一个监视程序,那么出现按钮就不是明智之举了。要实现该功能就要在OnCreate事件里利用到API函数SetWindowLong procedure TForm1.FormCreate(sender:TObject); begin SetWindowLong(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end;
改计算机名
改变计算机在网络中的名字,重新启动后才生效 SetComputerName('Hello World');
控制热启动 要使系统的热启动键(Ctrl+Alt+Del)失效,使用以下语句 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); 要恢复系统的热启动键(Ctrl+Alt+Del),使用以下语句 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
临时路径 有时需要Windows的临时路径来做备份等工作,那么就要知道路径在哪,下面的程序帮你忙: var aa:pchar; begin GetTempPath(20,aa); file://返回路径名 edit1.text:=aa; end;
返回程序执行参数 有关 Delphi 传入应用程式的命令列参数, 请参考以下的说明: 用ParamCount函数取得命令参数的个数: 呼叫 ParamStr(0), 传回执行档的档名(含路径) 呼叫 ParamStr(n), 传回第n个参数的内容 procedure TForm1.FormCreate(Sender: TObject); var sFileName: string; begin if ParamCount > 0 then begin (* 有执行参数传入 *) sFileName := ParamStr(1); (* 取得参数内容 *) if FileExists(sFileName) then Memo1. |