◇[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar(newfiletxt)pchar(//computername/direction/targertxt)false);
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件DragOver事件EndDrag事件实现例如在PANEL上的LABEL
var xpanelypanelxlabelylabel:integer;
PANEL的MouseMove事件xpanel:=x;ypanel:=y;
PANEL的DragOver事件xpanel:=x;ypanel:=y;
LABEL的MouseMove事件xlabel:=x;ylabel:=y;
LABEL的EndDrag事件labelleft:=xpanelxlabel;labeltop:=ypanelylabel;
◇[DELPHI]取得WINDOWS目录
uses shellapi;
var windir:array[] of char;
getwindowsdirectory(windirsizeof(windir));
或者从注册表中读取位置
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键取得如C:\WINDOWS
◇[DELPHI]在form或其他容器上画线
var xy:array [] of integer;
lor:=clred;
canvaspenstyle:=psDash;
formcanvasmoveto(trunc(x[i])trunc(y[i]));
formcanvaslineto(trunc(x[j])trunc(y[j]));
◇[DELPHI]字符串列表使用
var tips:tstringlist;
tips:=tstringlistcreate;
tipsloadfromfile(filenametxt);
edittext:=tips[];
tipsadd(last line addition string);
tipsinsert(insert string at NO line);
tipssavetofile(newfiletxt);
tipsfree;
◇[DELPHI]简单的剪贴板操作
richeditselectall;
pytoclipboard;
richeditcuttoclipboard;
editpastefromclipboard;
◇[DELPHI]关于文件目录操作
Chdir(c:\abcdir);转到目录
Mkdir(dirname);建立目录
Rmdir(dirname);删除目录
GetCurrentDir;//取当前目录名无\
Getdir(s);//取工作目录名s:=c:\abcdir;
Deletfile(abctxt);//删除文件
Renamefile(oldtxtnewtxt);//文件更名
ExtractFilename(filelistboxfilename);//取文件名
ExtractFileExt(filelistboxfilename);//取文件后缀
◇[DELPHI]处理文件属性
attr:=filegetattr(filelistboxfilename);
if (attr and faReadonly)=faReadonly then //只读
if (attr and faSysfile)=faSysfile then //系统
if (attr and faArchive)=faArchive then //存档
if (attr and faHidden)=faHidden then //隐藏
◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec( /c copy ** c:\SW_Normal);
winexec(start abctxt);
ShellExecute或ShellExecuteEx//启动文件关联程序
function executefile(const filenameparamsdefaultDir:string;showCmd:integer):THandle;
ExecuteFile(C:\abc\atxtxabcc:\abc\);
ExecuteFile();
ExecuteFile(mailto:);
◇[DELPHI]取得系统运行的进程名
var hCurrentWindow:HWnd;szText:array[] of char;
begin
hCurrentWindow:=Getwindow(handleGW_HWndFrist);
while hCurrentWindow <> do
begin
if Getwindowtext(hcurrnetwindow@sztext)> then emsadd(strpas(@sztext));
hCurrentWindow:=Getwindow(hCurrentwindowGW_HWndNext);
end;
end;
◇[DELPHI]关于汇编的嵌入
Asm End;
可以任意修改EAXECXEDX不能修改ESIEDIESPEBPEBX
◇[DELPHI]关于类型转换函数
FloatToStr//浮点转字符串
FloatToStrF//带格式的浮点转字符串
IntToHex//整数转进制
TimeToStr
DateToStr
DateTimeToStr
FmtStr//按指定格式输出字符串
formatDateTime(YYYYMMDDhhmmssDATE);
◇[DELPHI]字符串的过程和函数
Insert(objtargetpos);//字符串target插入在pos的位置如插入结果大于target最大长度多出字符将被截掉如Pos在以外会产生运行错例如st:=Brian则Insert（OKst）会使st变为BrOKian
Delete(stposNum);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串例如st:=Brian则Delete(st)将变为Brn
Str(valuest);//将数值value（整型或实型）转换成字符串放在st中例如a=E时则str(a:st)将使st的值为
Val(stvarcode);//把字符串表达式st转换为对应整型或实型数值存放在var中St必须是一个表示数值的字符串并符合数值常数的规则在转换过程中如果没有检测出错误变量code置为否则置为第一个出错字符的位置例如st:=Ex是一个实型变量则val(stxcode)将使X值为code值为
Copy(stposnum);//返回st串中一个位置pos（整型）处开始的含有num（整型）个字符的子串如果pos大于st字符串的长度那就会返回一个空串如果pos在以外会引起运行错误例如st:=Brian则Copy(st)返回ri
Concat(ststst……stn);//把所有自变量表示出的字符串按所给出的顺序连接起来并返回连接后的值如果结果的长度将产生运行错误例如st:=Brianst:= st:=Wilfred则Concat(ststst)返回Brian Wilfred
Length(st);//返回字符串表达式st的长度例如st:=Brian则Length(st)返回值为
Pos(objtarget);//返回字符串obj在目标字符串target的第一次出现的位置如果target没有匹配的串Pos函数的返回值为例如target:=Brian Wilfred则Pos(Wiltarget)的返回值是Pos(hurbettarget)的返回值是
◇[DELPHI]关于处理注册表
uses Registry;
var reg:Tregistry;
reg:=Tregistrycreate;
regrootkey:=HKey_Current_User;
regopenkey(Control Panel\Desktopfalse);
regWriteString(Title Wallpaper);
regwriteString(Wallpaperfilelistboxfilename);
regclosereg;
regfree;
◇[DELPHI]关于键盘常量名
VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE
/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN
FF$()$B()
AZ$()$A()
$()$()
◇[DELPHI]初步判断程序母语
DELPHI软件的DOS提示This Program Must Be Run Under Win
VC++软件的DOS提示This Program Cannot Be Run In DOS Mode
◇[DELPHI]操作Cookie
okies(name)domain:=;
with okiesadd do
begin
name:=username;
value:=username;
end
◇[DELPHI]增加到文档菜单连接
uses shellapishlOBJ;
shAddToRecentDocs(shArd_pathpchar(filepath));//增加连接
shAddToRecentDocs(shArd_pathnil);//清空
◇[杂类]备份智能ABC输入法词库
windows\system\userrem
windows\system\tmmrrem
◇[DELPHI]判断鼠标按键
if GetAsyncKeyState(VK_LButton)<> then //左键
if GetAsyncKeyState(VK_MButton)<> then //中键
if GetAsyncKeyState(VK_RButton)<> then //右键
◇[DELPHI]设置窗体的最大显示
onformCreate事件
selfwidth:=screenwidth;
selfheight:=screenheight;
◇[DELPHI]按键接受消息
OnCreate事件中处理ApplicationOnMessage:=MyOnMessage;
procedure TformMyOnMessage(var MSG:TMSG;var Handle:Boolean);
begin
if ssage= then //ANY键
if ssage= then //F
if ssage= then //F
end;
◇[杂类]隐藏共享文件夹
共享效果可访问但不可见（在资源管理网络邻居中）
取共享名为direction$
访问//computer/dirction/
◇[Java Script]Java Script网页常用效果
网页秒定时关闭
关闭窗口
关闭
定时转URL
设为首页
设为首页
收藏本站
收藏本站
加入频道
加入频道
◇[DELPHI]随机产生文本色
randomize;//随机种子
lor:=rgb(random()random()random());
◇[DELPHI]DELPHI UPDATE升级补丁序列号
Xfx
◇[DELPHI]文件名的非法字符过滤
for i:= to length(s) do
if s[i] in [\/:*?<>|] then
◇[DELPHI]转换函数的定义及说明
datetimetofiledate (datetime:Tdate
