avatar

杂⑦杂㈧

function   CanGetIECookie(const   URL:   string;   var   Cookie:   string):   boolean;  
 var  
 lpvBuffer:   array[0..1000]   of   byte;  
 lpdwBufferLength:   cardinal;  
 begin  
 lpdwBufferLength   :=   sizeof(lpvBuffer);  
 result   :=   InternetGetCookie(PChar(URL),   nil,   @lpvBuffer,   lpdwBufferLength);  
 if   result   then  
 Cookie   :=   pchar(@lpvBuffer);  
 end;  
   
 function   httpget(idhttp1:tidhttp):string;  
 var   url,str,cookiestr,temp:string;  
 begin  
 url:=   ‘http://www.e0575.cn/dispuser.asp?id=71002′;  
 idhttp1.Request.Host:=’www.e0575.cn’;  
 idhttp1.Request.AcceptLanguage:=’zh-cn’;  
 idhttp1.Request.UserAgent:=’Mozilla/4.0   (compatible;   MSIE   6.0;   Windows   NT   5.0;   MyIE2;   CustomExchangeBrowser;   .NET   CLR   1.1.4322)’;  
 idhttp1.Request.ProxyConnection:=’Keep-Alive’   ;  
 idhttp1.Request.ContentType:=’text/html’;  
 IdHTTP1.Request.ContentType   :=   ‘application/x-www-form-urlencoded’;  
 idhttp1.AllowCookies:=true;  
   if   CanGetIECookie(url,str)     then  
     begin  
 CookieStr   :=   ‘Cookie:   ‘   +   str;  
 idHttp1.Request.CustomHeaders.Text   :=   CookieStr;  
     end;  
     try  
 temp:=idhttp1.Get(url);  
     except  
           application.MessageBox(‘correct   happened!’,’wrong’,MB_iconerror+MB_OK);  
           application.Terminate;  
       end;  
   
   result:=temp;  
     idhttp1.Free;  
   
 end;  

中间函数
function CenterStr(Src:String;Before,After:String):String;
 var
   Pos1,Pos2:WORD;
 begin
   Pos1:=Pos(Before,Src)+Length(Before);
   Pos2:=Pos(After,Src);
   Result:=Copy(Src,Pos1,Pos2-Pos1);
 end;

function GetFileSize(const FileName: String): LongInt;
   var SearchRec: TSearchRec;
   begin
   if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
    Result := SearchRec.Size
   else
    Result := -1;
   end;

function GetShortName(sLongName: string): string; //转换长文件名
var
sShortName: string;
nShortNameLen: integer;
begin
SetLength(sShortName, MAX_PATH);
nShortNameLen := GetShortPathName(PChar(sLongName),
PChar(sShortName), MAX_PATH – 1);
if (0 = nShortNameLen) then
begin
// handle errors…
end;
SetLength(sShortName, nShortNameLen);
Result := sShortName;
end;

操作系统编程
更改Windows的墙纸。
  在Delphi中你可以很方便地更改墙纸,请参考以下的程序。
  procedureChangeIt;
  var
  Reg:TregIniFile;
  begin
  Reg:ΚTRegIniFile.Create(′ControlPanel′);
  Reg.WriteString(′desktop′,′Wallpaper′,′c:ιpwin95ιforest.bmp′);
  Reg.WriteString(′desktop′,′TileWallpaper′,′1′);
  Reg.Free;
  SystemParametersInfo(SPI—SETDESKWALLPAPER,0,nil,SPIF—SENDWININICHANGE);
  end

设置系统日期和时间:
例如:
  var
     MyST:TSystemTime;
  begin
       with MyST do
       begin
            wYear:=1998;
            wMonth:=12;
            wDay:=7;
            wHour:=8;
            wMinute:=9;
            wSecond:=10;
       end;
       SetSystemTime(MyST);
  end;
s

如何隐藏和显示Windows的任务条.
如果隐藏和显示Windows的任务条?仅仅调用以下的函数就可以.
procedure hideTaskbar; //隐藏
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], ‘Shell_TrayWnd’);
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
 
End;
 
procedure showTaskbar;
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], ‘Shell_TrayWnd’);
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;

控制面板大全
  在程序运行过程中启动控制面板的各个设置功能:
var x:cardinal;
begin
{启动控制面板}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL’,9);
{辅助选项 属性-键盘}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1′,9);
{辅助选项 属性-声音}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2′,9);
{辅助选项 属性-显示}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3′,9);
{辅助选项 属性-鼠标}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4′,9);
{辅助选项 属性-常规}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5′,9);
{添加/删除程序 属性-安装/卸载}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1′,9);
{添加/删除程序 属性-Windows安装程序}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2′,9);
{添加/删除程序 属性-启动盘}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3′,9);
{显示 属性-背景}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0′,9);
{显示 属性-屏幕保护程序}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1′,9);
{显示 属性-外观}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2′,9);
{显示 属性-设置}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3′,9);
{Internet 属性-常规}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0′,9);
{Internet 属性-安全}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1′,9);
{Internet 属性-内容}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2′,9);
{Internet 属性-连接}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3′,9);
{Internet 属性-程序}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4′,9);
{Internet 属性-高级}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5′,9);
{区域设置 属性-区域设置}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0′,9);
{区域设置 属性-数字}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1′,9);
{区域设置 属性-货币}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2′,9);
{区域设置 属性-时间}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3′,9);
{区域设置 属性-日期}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4′,9);
{游戏控制器-一般}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0′,9);
{游戏控制器-高级}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1′,9);
{鼠标 属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Main.cpl’,9);
{多媒体 属性-音频}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0′,9);
{多媒体 属性-视频}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1′,9);
{多媒体 属性-MIDI}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2′,9);
{多媒体 属性-CD音乐}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3′,9);
{多媒体 属性-设备}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4′,9);
{调制解调器 属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Modem.cpl’,9);
{网络}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl’,9);
{密码 属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Password.cpl’,9);
{扫描仪与数字相机 属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl’,9);
{系统 属性-常规}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0′,9);
{系统 属性-设备管理器}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1′,9);
{系统 属性-硬件配置文件}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2′,9);
{系统 属性-性能}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3′,9);
{日期/时间 属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL timedate.cpl’,9);
{电源管理 属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl’,9);
{拨号属性}
x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl’,9);
{———————-调用错误———————-}
if x=0 then messagebox(0,’程序超出内存’,’错误’,0);
if x=ERROR_BAD_FORMAT then messagebox(0,’该程序非一个合法的Win32.EXE程序).’,’错误’,0);
if x=ERROR_FILE_NOT_FOUND then messagebox(0,’指定文件没找到’,’错误’,0);
if x=ERROR_PATH_NOT_FOUND then messagebox(0,’指定路径没找到’,’错误’,0);
end;

控制壁纸
控制Windows 的壁纸,以下程序使壁纸变为我们想要的位图,如果THEPCHAR为空,那么就取消壁纸,变为Win默认色彩; 但这种方法只是暂时的,在WINDOWS重新启动后还是原来的位图,这时就需要对WIN.INI文件进行写操作,才能保存住我们改动的图片不被替换。
var THEPCHAR:pchar;
begin
THEPCHAR:=’e:\a.bmp’;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE)
end;

辨别分辨率
要得到显示器的分辨率,由下列程序得到:
var
x:longint;
a:string;
begin
x := GetSystemMetrics(SM_CXSCREEN);
Str(x,a);
Label1.Caption := ‘显示器水平分辨率’ + a;
x := GetSystemMetrics(SM_CYSCREEN);
Str(x,a);
Label2.Caption := ‘显示器垂直分辨率’ + a;
end;

启动屏幕保护
执行下列语句开始Windows屏幕保护程序
SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);

取系统颜色
要取得系统颜色,把参数换一下就可以
COLOR_SCROLLBAR      滚动条
COLOR_BACKGROUND      桌面背景
COLOR_ACTIVECAPTION     活动窗口标题
cOLOR_INACTIVECAPTION   非活动窗口标题
cOLOR_MENU         菜单
COLOR_WINDOW        窗口背景
cOLOR_WINDOWFRAME     窗口框
COLOR_MENUTEXT       窗口文字
COLOR_WINDOWTEXT      3D 阴影 (Win95)
COLOR_CAPTIONTEXT     标题文字
COLOR_ACTIVEBORDER     活动窗口边框
COLOR_INACTIVEBORDER    非活动窗口边框
COLOR_APPWORKSPACE     MDI 窗口背景
COLOR_HIGHLIGHT      选择条背景
COLOR_HIGHLIGHTTEXT    选择条文字
COLOR_BTNFACE       按钮
COLOR_BTNSHADOW      3D 按钮阴影
COLOR_GRAYTEXT       灰度文字
COLOR_BTNTEXT       按钮文字
COLOR_INACTIVECAPTIONTEXT 非活动窗口文字
COLOR_BTNHIGHLIGHT     3D 选择按钮}
var i:integer;
begin
//取得活动窗口标题颜色
i :=GetSysColor(COLOR_ACTIVECAPTION);
end;

动态修改显示器分辨率
Windows提供给我们两个API函数,可以动态调整显示器的分辨率,他们是EnumDisplaySettings() 和ChangeDisplaySettings(),下面这个例子就是了
function DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DynamicResolution(640, 480) then
ShowMessage(‘Now is 640*480′);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if DynamicResolution(800, 600) then
ShowMessage(‘Now is 800*600′);
end;

隐藏桌面上的图标
  使桌面上的图标消失,连桌面上的右键功能也不能使用如果不让初学者乱用“我的电脑”的话,那么把程序放到“启动”里,顺便把“Windows资源管理器”也去掉, 再加上个多用户密码,那么想破坏电脑文件也无从下手了。该程序Delphi 7 里通过
var
hDesktop : THandle;
begin
hDesktop := FindWindow(‘Progman’, nil);
ShowWindow(hDesktop, SW_HIDE);
end;

怎样获得程序启动快捷键中记载的程序路径  
ShortCut that Started Application?
OK, your problem is not setting current directory but you want to take
“ANY” shortcut and resolve its properties. Am I correct now ? :))
Take a look at unit ShlObj and IShellLink. (API help file)
var SCut: IShellLink;
SCut.Resolve
GetWorkingDirectory – Retrieves the name of the working directory for a
shell link object
GetPath – Retrieves the path and filename of a shell link object.
I have not done this before, just giving you ideas

让彩色光标出现在Delphi程序中
 在Delphi中用Loadcursor()得到的光标只有黑白两色,怎样在程序中得到彩色光标呢?笔者尝试制作了以下程序:
  方法一 用Loadcursorfromfile()从外部调入图标作为光标
  Loadcursorfromfile()函数可以读*CUR,*ICO,*ANI为后缀的文件作为光标,其中ICO为彩色图标格式(可用Image Editor制作),ANI为动画光标格式。以下为打开一图标作为光标的演示程序段,当光标移动到测试区域内光标会变成选定的图案;
  {设:opendialog1:Topendialog;Bitbtn1:Tbitbtn}
  procedure TForm1.BitBtn1Click(Sender:TObject);
  var tt:pchar;size:integer;s:string;
  begin
  if opendialog1.Execute then
  begin
  size:=length(opendialog1.filename);
  getmem(tt,size);
  s:=opendialog1.filename;
  strpcopy(tt,s);
  screen.cursors[2]:=loadcursorfromfile(tt);
  bf.cursor:=2;
  freemem(tt,size);
  end;
  end;
  方法二 从资源文件加载彩色光标
  用方法一发送程序时必须包含*CUR文件,因而从资源文件中加载彩色光标是更可行的方法。用图标存放彩色光标,使用时把图标存入临时文件,用Loadcursorfromfile()从临时文件读出彩色光标。
  程序段:
  procedure ZloadfromResourse(screenindex:integer;name:Pchar);
  var td:ticon;
  begin
  try
  td:=ticon.Create;
  td.Handle:=LoadIcon(Hinstance,name);
  td.SaveToFile(′temp.cur′);
  screen.Cursors[screenindex]:=loadcursorfromfile(′temp.cur′);
  deletefile(′temp.cur′);
  finally
  td.free;
  end;
  end;
  此程序把名字为name的图标变为序号为screenindex的光标;
  例:
  ZloadfromResourse(2,′myicon′);
  Form1.cursor:=2;

  注意:′myicon′这个图标一定要在资源文件中,否则会出现异常。

回车替Tab下移控件
需要用回车键代替TAB键下移一个控件时,把KeyPress设为True,加入下列代码拦截击键:
Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
 if key=#13 then { 判断是按执行键}
 if not (ActiveControl is TDbgrid) Then
 Begin { 不是在TDbgrid控件内}
  key:=#0;
  perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 end else
 if (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}
 begin
  With TDbgrid(ActiveControl) Do
  if Selectedindex<(FieldCount-1) then
  Selectedindex:=Selectedindex+1{ 移动到下一字段}
  else Selectedindex:=0;
 end;
End;
如何清空回收站
Procedure EmptyRecycleBin ;

Const

SHERB_NOCONFIRMATION = $00000001 ;

SHERB_NOPROGRESSUI = $00000002 ;

SHERB_NOSOUND = $00000004 ;

Type

TSHEmptyRecycleBin = function (Wnd : HWND ;

LPCTSTR : PChar ;

DWORD : Word ) : Integer ; stdcall ;

Var

SHEmptyRecycleBin : TSHEmptyRecycleBin ;

LibHandle : THandle ;

Begin

LibHandle := LoadLibrary(PChar('Shell32.dll')) ;

If LibHandle <> 0 then

@SHEmptyRecycleBin := GetProcAddress(LibHandle, ‘SHEmptyRecycleBinA’)

Else

Begin

MessageDlg(‘Failed to load Shell32.dll.’, mtError, [mbOK], 0);

Exit ;

End ;

If @SHEmptyRecycleBin <> nil then

SHEmptyRecycleBin(Application.Handle ,

” ,

SHERB_NOCONFIRMATION or

SHERB_NOPROGRESSUI or

SHERB_NOSOUND ) ;

FreeLibrary(LibHandle);

@SHEmptyRecycleBin := nil ;

End ;

Virtual key values
vk_LButton = $01;
vk_RButton = $02;

vk_Cancel = $03;

vk_MButton = $04; { NOT contiguous with L & RBUTTON }

vk_Back = $08;

vk_Tab = $09;

vk_Clear = $0C;

vk_Return = $0D;

vk_Shift = $10;

vk_Control = $11;

vk_Menu = $12;

vk_Pause = $13;

vk_Capital = $14;

vk_Escape = $1B;

vk_Space = $20;

vk_Prior = $21;

vk_Next = $22;

vk_End = $23;

vk_Home = $24;

vk_Left = $25;

vk_Up = $26;

vk_Right = $27;

vk_Down = $28;

vk_Select = $29;

vk_Print = $2A;

vk_Execute = $2B;

vk_SnapShot = $2C;

vk_Copy = $2C not used by keyboards }

vk_Insert = $2D;

vk_Delete = $2E;

vk_Help = $2F;

vk_A thru vk_Z are the same as their ASCII equivalents: ‘A’ thru ‘Z’ }

vk_0 thru vk_9 are the same as their ASCII equivalents: ’0′ thru ’9′ }

vk_NumPad0 = $60;

vk_NumPad1 = $61;

vk_NumPad2 = $62;

vk_NumPad3 = $63;

vk_NumPad4 = $64;

vk_NumPad5 = $65;

vk_NumPad6 = $66;

vk_NumPad7 = $67;

vk_NumPad8 = $68;

vk_NumPad9 = $69;

vk_Multiply = $6A;

vk_Add = $6B;

vk_Separator = $6C;

vk_Subtract = $6D;

vk_Decimal = $6E;

vk_Divide = $6F;

vk_F1 = $70;

vk_F2 = $71;

vk_F3 = $72;

vk_F4 = $73;

vk_F5 = $74;

vk_F6 = $75;

vk_F7 = $76;

vk_F8 = $77;

vk_F9 = $78;

vk_F10 = $79;

vk_F11 = $7A;

vk_F12 = $7B;

vk_F13 = $7C;

vk_F14 = $7D;

vk_F15 = $7E;

vk_F16 = $7F;

vk_F17 = $80;

vk_F18 = $81;

vk_F19 = $82;

vk_F20 = $83;

vk_F21 = $84;

vk_F22 = $85;

vk_F23 = $86;

vk_F24 = $87;

vk_NumLock = $90;

vk_Scroll = $91;

Delphi(Pascal)的函数速查
Abort 函数 引起放弃的意外处理

Abs 函数 绝对值函数

AddExitProc 函数 将一过程添加到运行时库的结束过程表中

Addr 函数 返回指定对象的地址

AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列

Align 属性 使控件位于窗口某部分

Alignment 属性 控件标签的文字位置

AllocMem 函数 在堆栈上分配给定大小的块

AllowGrayed 属性 允许一个灰度选择

AnsiCompareStr 函数 比较字符串(区分大小写)

AnsiCompareText 函数 比较字符串(不区分大小写)

AnsiLowerCase 函数 将字符转换为小写

AnsiUpperCase 函数 将字符转换为大写

Append 函数 以附加的方式打开已有的文件

ArcTan 函数 余切函数

AssignFile 函数 给文件变量赋一外部文件名

Assigned 函数 测试函数或过程变量是否为空

AutoSize 属性 自动控制标签的大小

BackgroundColor 属性 背景色

BeginThread 函数 以适当的方式建立用于内存管理的线程

BevelInner 属性 控件方框的内框方式

BevelOuter 属性 控件方框的外框方式

BevelWidth 属性 控件方框的外框宽度

BlockRead 函数 读一个或多个记录到变量中

BlockWrite 函数 从变量中写一个或多个记录

BorderStyle 属性 边界类型

BorderWidth 属性 边界宽度

Break 命令 终止for、while、repeat循环语句

Brush 属性 画刷

Caption 属性 标签文字的内容

ChangeFileExt 函数 改变文件的后缀

ChDir 函数 改变当前目录

Checked 属性 确定复选框选中状态

Chr 函数 返回指定序数的字符

CloseFile 命令 关闭打开的文件

Color 属性 标签的颜色

Columns 属性 显示的列数

CompareStr 函数 比较字符串(区分大小写)

Concat 函数 合并字符串

Continue 命令 继续for、while、repeat的下一个循环

Copy 函数 返回一字符串的子串

Cos 函数 余弦函数

Ctl3D 属性 是否具有3D效果

Cursor 属性 鼠标指针移入后的形状

Date 函数 返回当前的日期

DateTimeToFileDate 函数 将DELPHI的日期格式转换为DOS的日期格式

DateTimeToStr 函数 将日期时间格式转换为字符串

DateTimeToString 函数 将日期时间格式转换为字符串

DateToStr 函数 将日期格式转换为字符串

DayOfWeek 函数 返回星期的数值

Dec 函数 递减变量值

DecodeDate 函数 将日期格式分解为年月日

DecodeTime 函数 将时间格式分解为时、分、秒、毫秒

Delete 函数 从字符串中删除子串

DeleteFile 命令 删除文件

DiskFree 函数 返回剩余磁盘空间的大小

DiskSize 函数 返回指定磁盘的容量

Dispose 函数 释放动态变量所占的空间

DisposeStr 函数 释放字符串在堆栈中的内存空间

DitherBackground 属性 使背景色的色彩加重或减少50%

DragCursor 属性 当鼠标按下时光标的形状

DragMode 属性 按动的作用方式

DropDownCount 属性 容许的显示数据项的数目

EditMask 属性 编辑模式

Enabled 属性 是否使标签呈现打开状态

EncodeDate 函数 将年月日合成为日期格式

EncodeTime 函数 将时、分、秒、毫秒合成为时间格式

EndMargin 属性 末尾边缘

Eof 函数 对有类型或无类型文件测试是否到文件尾

Eoln 函数 返回文本文件的行结束状态

Erase 命令 删除外部文件

ExceptAddr 函数 返回引起当前意外的地址

Exclude 函数 从集合中删除一些元素

ExceptObject 函数 返回当前意外的索引

Exit 命令 立即从当前的语句块中退出

Exp 函数 指数函数

ExpandFileName 函数 返回包含绝对路径的字符串

ExtendedSelect 属性 是否允许存在选择模式,True时,MultiSelect才有意义

ExtractFileDir 函数 返回驱动器和路径

ExtractFileExt 函数 返回文件的后缀

ExtractFileName 函数 返回文件名

ExtractFilePath 函数 返回指定文件的路径

FileAge 函数 返回文件已存在的时间

FileClose 命令 关闭指定的文件

FileCreate 命令 用指定的文件名建立新文件

FileDateToDateTime 函数 将DOS的日期格式转换为DELPHI的日期格式

FileExists 函数 检查文件是否存在

FileGatAttr 函数 返回文件的属性

FileGetDate 函数 返回文件的DOS日期时间标记

FileOpen 命令 用指定的存取模式打开指定的文件

FilePos 函数 返回文件的当前指针位置

FileRead 命令 从指定的文件读取

FileSearch 命令 在目录中搜索指定的文件

FileSeek 函数 改变文件的指针

FileSetAttr 函数 设置文件属性

FileSetDate 函数 设置文件的DOS日期时间标记

FileSize 函数 返回当前文件的大小

FileWrite 函数 对指定的文件做写操作

FillChar 函数 用指定的值填充连续字节的数

FindClose 命令 终止FindFirst/FindNext序列

FindFirst 命令 对指定的文件名及属性搜索目录

FindNext 命令 返回与文件名及属性匹配的下一入口

FloatToDecimal 函数 将浮点数转换为十进制数

FloatToStrF 函数 将浮点数转换为字符串

FloatToStr 函数 将浮点数转换为字符串

FloatToText 函数 将给定的浮点数转换为十进制数

FloatToTextFmt 函数 将给定的浮点数转换为十进制数

Flush 函数 将缓冲区的内容刷新到输出的文本文件中

FmtLoadStr 函数 从程序的资源字符串表中装载字符串

FmtStr 函数 格式化一系列的参数,其结果以参数Result返回

Font 属性 设置字体

Format 函数 格式化一系列的参数并返回Pascal字符串

FormatBuf 函数 格式化一系列的参数

FormatDateTime 函数 用指定的格式来格式化日期和时间

FormatFloat 函数 指定浮点数格式

Frac 函数 返回参数的小数部分

FreeMem 函数 按给定大小释放动态变量所占的空间

GetDir 返回指定驱动器的当前目录

GetHeapStatus 返回内存管理器的当前状态

GetMem 建立一指定大小的动态变量,并将指针指向该处

GetMemoryManager 返回内存管理器的入口点

Glyph 函数 按钮上的图象

Halt 停止程序的执行并返回到操作系统

Hi 返回参数的高地址位

High 返回参数的上限值

Hint 属性 提示信息

Int 返回参数的整数部分

Include 添加元素到集合中

Insert 在字符串中插入子串

IntToHex 将整型数转换为十六进制数

IntToStr 将整型数转换为字符串

IOResult 返回最新的I/O操作完成状态

IsValidIdent 测试字符串是否为有效的标识符

Items 属性 默认显示的节点

Kind 属性 摆放样式

LargeChange 属性 最大改变值

Layout 属性 图象布局

Length 函数 返回字符串的动态长度

Lines 属性 缺省显示内容

Ln 函数 自然对数函数

Lo 函数 返回参数的低地址位

LoadStr 函数 从应用程序的可执行文件中装载字符资源

LowerCase 函数 将给定的字符串变为小写

Low 函数 返回参数的下限值

Max 属性 最大值

MaxLength 属性 最大长度

Min 属性 最小值

MkDir 命令 建立一子目录

Move 函数 从源到目标复制字节

MultiSelect 属性 允许同时选择几个数据项

Name 属性 控件的名字

New 函数 建立新的动态变量并设置一指针变量指向他

NewStr 函数 在堆栈上分配新的字符串

Now 函数 返回当前的日期和时间

Odd 测试参数是否为奇数

OnActivate 事件 焦点移到窗体上时触发

OnClick 事件 单击窗体空白区域触发

OnDblClick 事件 双击窗体空白区域触发

OnCloseQuery 事件 使用者试图关闭窗体触发

OnClose 事件 窗体关闭后才触发

OnCreate 事件 窗体第一次创建时触发

OnDeactivate 事件 用户切换到另一应用程序触发

OnDragDrop 事件 鼠标拖放操作结束时触发

OnDragOver 事件 有其他控件从他上面移过触发

OnMouseDown 事件 按下鼠标键时触发

OnMouseUp 事件 释放鼠标键时触发

OnMouseMove 事件 移动鼠标时触发

OnHide 事件 隐藏窗体时触发

OnKeyDown 事件 按下键盘某键时触发

OnKeyPress 事件 按下键盘上的单个字符键时触发

OnKeyUp 事件 释放键盘上的某键时触发

OnPaint 事件 窗体上有新部分暴露出来触发

OnResize 事件 重新调整窗体大小触发

OnShow 事件 在窗体实际显示之前瞬间触发

Ord 返回序数类的序数

OutlineStyle 属性 类型

OutOfMemoryError 引起OutOfMemory意外

PageIndex 属性 页索引

Pages 属性 页

ParamCount 函数 返回在命令行上传递给程序的参数数量

ParamStr 函数 返回指定的命令行参数

Pen 属性 画刷设置

Pi 函数 返回圆周率Pi

Picture 属性 显示图象

PictureClosed 属性 设置Closed位图

PictureLeaf 属性 设置Leaf位图

PictureMinus 属性 设置Minus位图

PictureOpen 属性 设置Open位图

PicturePlus 属性 设置Plus位图

Pos 函数 在字符串中搜索子串

Pred 函数 返回先前的参数

Random 函数 返回一随机函数

Randomize 函数 用一随机数初始化内置的随机数生成器

Read 函数 对有格式的文件,读一文件组件到变量中;

对文本文件,读一个或多个值到一个或多个变量中

Readln 函数 执行Read过程,然后跳到文件下一行

ReadOnly 属性 只读属性

ReAllocMem 函数 分配一动态变量

Rename 函数 重命名外部文件

RenameFile 函数 对文件重命名

Reset 函数 打开已有的文件

Rewrite 函数 建立并打开一新的文件

RmDir 函数 删除空的子目录

Round 函数 将实数值舍入为整型值

RunError 函数 停止程序的执行

ScrollBars 属性 滚动条状态

Seek 函数 将文件的当前指针移动到指定的组件上

SeekEof 函数 返回文件的文件结束状态

SeekEoln 函数 返回文件的行结束状态

SelectedColor 属性 选中颜色

SetMemoryManager 函数 设置内存管理器的入口点

SetTextBuf 函数 给文本文件指定I/O缓冲区

Shape 属性 显示的形状

ShowException 函数 显示意外消息与地址

Sin 函数 正弦函数

SizeOf 函数 返回参数所占的字节数

SmallChange 属性 最小改变值

Sorted 属性 是否允许排序

Sqr 函数 平方函数

Sqrt 函数 平方根函数

StartMargin 属性 开始边缘

State 属性 控件当前状态

Str 函数 将数值转换为字符串

StrAlloc 函数 给以NULL结束的字符串分配最大长度-1的缓冲区

StrBufSize 函数 返回存储在由StrAlloc分配的字符缓冲区的最大字符数

StrCat 函数 将一字符串附加到另一字符串尾并返回合并的字符串

StrComp 函数 比较两个字符串

StrCopy 函数 将一个字符串复制到另一个字符串中

StrDispose 函数 释放堆栈上的字符串

StrECopy 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针

StrEnd 函数 返回指向字符串尾部的指针

Stretch 属性 自动适应控件的大小

StrFmt 函数 格式化一系列的参数

StrIComp 函数 比较两个字符串(不区分大小写)

StringToWideChar 函数 将ANSI字符串转换为UNICODE字符串

StrLCat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串

StrLComp 函数 以最大长度比较两个字符串

StrLCopy 函数 将一个字符串中的字符复制到另一个字符串中

StrLen 函数 返回字符串中的字符数

StrLFmt 函数 格式化一系列的参数,其结果中包含有指向目标缓冲区的指针

StrLIComp 函数 以最大长度比较两个字符串(不区分大小写)

StrLower 函数 将字符串中的字符转换为小写

StrMove 函数 将一个字符串中的字符复制到另一个字符串中

StrNew 函数 在堆栈上分配一个字符串

StrPas 函数 将以NULL结束的字符串转换为PASCAL类的字符串

StrPCopy 函数 将PASCAL类的字符串复制为以NULL结束的字符串

StrPLCopy 函数 从PASCAL类的最大长度字符串复制为以NULL结束的字符串

StrPos 函数 返回一个字符串在另一个字符串中首次出现指针

StrRScan 函数 返回字符串中最后出现字符的指针

StrScan 函数 返回字符串中出现首字符的指针

StrToDate 函数 将字符串转换为日期格式

StrToDateTime 函数 将字符串转换为日期/时间格式

StrToFloat 函数 将给定的字符串转换为浮点数

StrToInt 函数 将字符串转换为整型

StrToIntDef 函数 将字符串转换为整型或默认值

StrToTime 函数 将字符串转换为时间格式

StrUpper 函数 将字符串中的字符转换为大写

Style 属性 类型选择

Suce 函数 返回后继的参数

Swap 函数 交换参数的高低地址位

Tabs 属性 标记每一项的内容

TabIndex 属性 标记索引

Text 属性 显示的文本

TextToFloat 函数 将字符串(以NULL结束的格式)转换为浮点数

Time 函数 返回当前的时间

TimeToStr 函数 将时间格式转换为字符串

Trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符

TrimLeft 函数 从给定的字符串中删除首部的空格及控制字符

TrimRight 函数 从给定的字符串中删除尾部的空格及控制字符

Trunc 函数 将实型值截取为整型值

Truncate 函数 截去当前文件位置后的内容

UnSelectedColor 属性 未选中颜色

UpCase 将字符转换为大写

UpperCase 将给定的字符串变为大写

Val 函数 将字符串转换为整型值

VarArrayCreate 函数 以给定的界限和维数建立变体数组

VarArrayDimCount 函数 返回给定变体的维数

VarArrayHighBound 函数 返回给定变体数组维数的上界

VarArrayLock 函数 锁定给定的变体数组

VarArrayLowBound 函数 返回给定变体数组维数的下界

VarArrayOf 函数 返回指定变体的数组元素

VarArrayRedim 函数 通过改变上限来调整变体的大小

VarArrayUnlock 函数 解锁指定的变体数组

VarAsType 函数 将变体转换为指定的类型

VarCase 函数 将变体转换为指定的类型并保存他

VarClear 函数 清除指定的变体

VarCopy 函数 将指定的变体复制为指定的变体

VarFormDateTime 函数 返回包含日期时间的变体

VarIsArray 函数 测试变体是否为数组

VarIsEmpty 函数 测试变体是否为UNASSIGNED

VarIsNull 函数 测试变体是否为NULL

VarToDateTime 函数 将给定的变体转换为日期时间

VarType 函数 将变体转换为指定的类型并保存他

Visible 属性 控件的可见性

WantReturns 属性 为True时,按回车键产生一个回车符;

为False时,按下Ctrl+Enter才产生回车符

Write 命令 对有格式的文件,写一变量到文件组件中;

对文本文件,写一个或多个值到文件中

Writeln 命令 执行WRITE过程,然后输出一行结束标志

WideCharLenToString 函数 将ANSI字符串转换为UNICODE字符串

WideCharLenToStrWar 函数 将UNICODE字符串转换为ANSI字符串变量

WideCharToString 函数 将UNICODE字符串转换为ANSI字符串

WideCharToStrVar 函数 将UNICODE字符串转换为ANSI字符串变量

判断光盘是否是CD
Function AudioCD(Drive : Char) : Boolean;

Var

FSFlags, MaxLength: DWORD;

VolName, Path : String;

Begin

Path := Drive + ‘:\’;

Result := FALSE;

if (GetDriveType(PChar(Path)) = DRIVE_CDROM) then

Begin

SetLength(VolName, 64);

GetVolumeInformation(PChar(Path), PChar(VolName), Length(VolName), nil, MaxLength, FSFlags, nil,0);

if (lStrCmp(PChar(VolName),’Audio CD’) = 0) Then Result := TRUE;

End;

end;

Comments ( 0 ) Trackbacks ( 0 ) Leave a Reply
  1. No comments yet.

    目前尚无任何评论.

    コメントはまだありません。

  2.                    
  1. No trackbacks yet.

    目前尚无任何 trackbacks 和 pingbacks.

    トラックバックはまだありません。

  • ☆*:.。. o(≧▽≦)o .。.:*☆
  • _(:з」∠)_
  • ♪(´ε` )
  • ψ(`∇´)ψ
  • (-_-#)
  • (=´∀`)人(´∀`=)
  • \(//∇//)\
  • ♪(*^^)o∀*∀o(^^*)♪
  • (((o(*゚▽゚*)o)))
  • (´・_・`)
  • σ(^_^;)
  • ( *`ω´)
  • (ノ`Д´)ノ
  • (( _ _ ))..zzzZZ
  • ( ̄▽ ̄)
  • ヽ(`Д´#)ノ
  • ((((;゚Д゚)))))))
  • (>_<)
  • (T_T)
  • ( T_T)\(^-^ )
  • ε=ε=ε=ε=ε=ε=┌(; ̄◇ ̄)┘