Delphi笔记[一]

Randomize;生成一个随机数
Random (100);在0~100中取一个随机数
UpperCase 将目标转换成大写
SetWindowRgn API函数，用来实现不规则窗口
ExitWindows(0, 0);重启计算机
ShellExecute 参考：http://baike.baidu.com/view/1044533.htm
FileExists function FileExists(const FileName: string): Boolean; 是否存在该文件
DirectoryExists function DirectoryExists(const Directory: string): Boolean;是否存在该目录
Rectangle(x1,y1,x2,y2); 画矩形
Ellipse(x1,y1,x2,y2);画椭圆
Rdygon(p);画多边形
GetCurrentDir;获得当前目录名

var QQNumber:string;
begin
if InputQuery(‘输入信息’,'请输入一个QQ号码’,QQNumber)
then WebBrowser1.Navigate(‘http://wpa.qq.com/msgrdv=1&uin=’+QQNumber+’&site=240zt’);
end;

WebBrowser1.Navigate(‘http://wpa.qq.com/msgrd?v=1&uin=’+InputBox(‘输入信息’,'请输入一个QQ号码:’,’810492306′)+’&site=240zt’);

得网站排名的代码

var
p:integer;
s:string;
begin
WebBrowser1.Navigate(Edit1.Text);
s := idHTTP1.Get(‘http://data.alexa.com/data?cli=10&dat=snba&url=’ + Edit1.Text) ;
//先得到网页代码
p:=pos(‘” TEXT=”‘,s) + Length(‘” TEXT=”‘);
s:=copy(s,P,30);
p:=pos(‘”/>’,s);
Label3.Caption:=Copy(s,1,P -1);
if Edit1.Text=” then
ShowMessage(‘地址不能为空’);
end;

FindWindow，Win32 API函数,参考：http://baike.baidu.com/view/373605.htm

SendMessage,Win32 API函数,参考：http://baike.baidu.com/view/1080187.htm

ExtractFilePath(const FileName: string): string;返回该文件的目录全路径

窗体的一属性Alphablend及Alphablendvalue各起什么作用？透明和透明值

WindowFromPoint API函数 参考:http://baike.baidu.com/view/1080360.htm

GetClassName API函数 参考:http://baike.baidu.com/view/1080266.htm

GetWindowText API函数 参考:http://baike.baidu.com/view/1080327.html

GetDlgltemText API函数 参考:http://baike.baidu.com/view/1079984.html

GetCursorPos API函数 参考:http://baike.baidu.com/view/1079910.htm

AnimateWindow 该函数能在显示与隐藏窗口时能产生特殊的效果

CreatePolygonRgn API函数,结构指定多边形 参考：

http://baike.360.cn/wiki/item/CreatePolygonRgn

SetWindowRgn API函数，设定窗户的窗户区域 参考：

http://baike.baidu.com/view/1559429.htm

ParamStr（0）返回执行文件的路径和文件名。
比如命令行：c:/temp/MyApp.exe \test \save
那么：
paramstr[0] = ‘c:/temp/MyApp.exe’
paramstr[1] = ‘\test’
paramstr[2] = ‘\save’

补充：这里只是举个例子，这些参数就是要你的程序实现的功能啊！
如果你的程序没有必要使用参数，这些参数也就没有意义了。
paramstr的用处就是帮你把接收到的命令中的参数识别分离出来，好让你针对参数进行编程。

文件一些操作函数：
ExpandFileName(const FileName: string): string;//从文件名返回完整文件路径名
ExtractFileDir(const FileName: string): string;//从文件路径名中返回目录路径名
ExtractFileName(const FileName: string): string;//从文件路径名中返回文件名和扩展名
ExtractFileExt(const FileName: string): string;//从文件路径名中返回扩展名
FileGetAttr(const FileName: string): Integer;//返回指定文件属性
FileExists(const FileName: string): Boolean;//判断文件是否存在
FileCreate(const FileName: string): Integer; overload;//创建文件
DeleteFile(const FileName: string): Boolean;//删除指定文件
RenameFile(const OldName, NewName: string): Boolean;//重命名指定文件
GetCurrentDir: string;//返回当前目录路径名
SetCurrentDir(const Dir: string): Boolean;//设置当前目录
CreateDir(const Dir: string): Boolean;//创建新目录

FileSetAttr(Edit1.Text+’\desktop.ini’,faHidden);//设置为隐藏属性，

faReadOnly, faSysFile(系统), faArchive(存档), faHidden

FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;

strpas 函数 将以null结束的字符串转换为pascal类的字符串,将pchar类型转为string类型