delphi 获取GIF,PNG,JPG的尺寸大小(宽X高)
interface
uses Classes;
procedure GetJPGSize(const sFile: string; var wWidth, wHeight: Word);
procedure GetPNGSize(const sFile: string; var wWidth, wHeight: Word);
procedure Get
[codes=delphi] //Delphi通过进程名获取进程PID函数
uses
TLhelp32; //引用
Function GetPID(_GetPID:String):String;
var
h:thandle;
f:boolean;
lppe:tp
以下命令可以直接在Windows的运行窗口直接执行,在Delphi中你要这样使用:
winexec(Pchar('ABCD'),sw_Show);
其中"ABCD"代表以下命令之一:
"rundll32 shell32,Control_RunDLL" - 运行控制面板
"rundll32 shell32,OpenAs_RunDLL" - 打开"打开方式"窗口
&
//获得CPU类型
function GetCPUVendor : TVendor; assembler; register;
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI,EAX {@Result (TVendor)}
MOV EAX,0
DW $A20F {CPUID Command}
MOV EAX,EBX
XCHG EBX,ECX
TWebBrowser的常见属性和方法
GoBack:方法,后退到上一个页面。
GoForward:方法,前进到下一个页面。
GoHome:方法,调用默认的主页页面,该页面在IE的选项中设定。
GoSearch:方法,调用默认的搜索页面,该页面在IE的选项中设定。
Refresh:方法,刷新当前页面。
Stop:方法,停止调用或打开当前页面。
LocationName:属性(WideString),当前位置
procedure TForm1.Button1Click(Sender: TObject);
var
i: Real;
begin
i := StrToDate('2008-1-1') - StrToDate('2007-1-1');
ShowMessage(FloatToStr(i)); //返回的结果是365天
&nbs
函数功能Now返回当前日期及时间Date返回当前日期Time返回当前时间DateTimeToStr按缺省格式将日期和时间值转换为字符串;特定格式转换可用 FormatDateTime函数DateTimeToString按缺省格式将日期和时间值拷贝到字符串缓冲区DateToStr将TDateTime值的日期部分转为字符串TimeToStr将TDateTime值的时间部分转为字符串FormatDateTime按特定格式将日期和时间值转换为字符串StrToDateTime将带有日期和时间信息的字
1. API之网络函数
WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetC
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,tlhelp32;
type
TForm1 = class(TForm)
&