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

delphi 获取GIF,PNG,JPG的尺寸大小(宽X高)

unit ImgSize;

interface

uses Classes;

procedure GetJPGSize(const sFile: string; var wWidth, wHeight: Word);
procedure GetPNGSize(const sFile: string; var wWidth, wHeight: Word);
procedure Get

标签: delphi

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

Delphi通过进程名获取进程PID函数

[codes=delphi] //Delphi通过进程名获取进程PID函数
uses
TLhelp32; //引用

Function GetPID(_GetPID:String):String;
var
     h:thandle;
     f:boolean;
     lppe:tp

标签: delphi

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

Delphi 执行一些基本系统命令

以下命令可以直接在Windows的运行窗口直接执行,在Delphi中你要这样使用:
winexec(Pchar('ABCD'),sw_Show);
其中"ABCD"代表以下命令之一:
"rundll32 shell32,Control_RunDLL" - 运行控制面板
"rundll32 shell32,OpenAs_RunDLL" - 打开"打开方式"窗口
&

标签: delphi

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

delphi编程获得Cpu 的使用情况

//获得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

标签: delphi

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

TWebBrowser的常见属性和方法

TWebBrowser的常见属性和方法
GoBack:方法,后退到上一个页面。
GoForward:方法,前进到下一个页面。
GoHome:方法,调用默认的主页页面,该页面在IE的选项中设定。
GoSearch:方法,调用默认的搜索页面,该页面在IE的选项中设定。
Refresh:方法,刷新当前页面。
Stop:方法,停止调用或打开当前页面。

LocationName:属性(WideString),当前位置

标签: delphi

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

时间的运算

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Real;
begin
  i := StrToDate('2008-1-1') - StrToDate('2007-1-1');
  ShowMessage(FloatToStr(i));  //返回的结果是365天

&nbs

标签: delphi

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

常用时间函数列表

函数功能Now返回当前日期及时间Date返回当前日期Time返回当前时间DateTimeToStr按缺省格式将日期和时间值转换为字符串;特定格式转换可用 FormatDateTime函数DateTimeToString按缺省格式将日期和时间值拷贝到字符串缓冲区DateToStr将TDateTime值的日期部分转为字符串TimeToStr将TDateTime值的时间部分转为字符串FormatDateTime按特定格式将日期和时间值转换为字符串StrToDateTime将带有日期和时间信息的字

标签: delphi

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

API函数大全 1-6

1. API之网络函数

WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetC

标签: delphi

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

delphi枚举进程代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,tlhelp32;

type
  TForm1 = class(TForm)
&

标签: delphi

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