DELPHI基础开发技巧.doc

DELPHI网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pchar(/computername/direction/targer.txt),false);DELPHI产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:var xpanel,ypanel,xlabel,ylabel:integer;PANEL的MouseMove事件:xpanel:=x;ypanel:=y;PANEL的DragOver 事件:xpanel:=x;ypanel:=y;LABEL的MouseMove事件:xlabel:=x;ylabel:=y;LABEL的EndDrag 事件:label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;DELPHI取得WINDOWS目录uses shellapi;var windir:array0.255 of char;getwindowsdirectory(windir,sizeof(windir);或者从注册表中读取,位置:HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionSystemRoot键,取得如:C:WINDOWSDELPHI在FORM或其他容器上画线var x,y:array 0.50 of integer;canvas.pen.color:=clred;canvas.pen.style:=psDash; . form1.canvas.moveto(trunc(xi),trunc(yi);form1.canvas.lineto(trunc(xj),trunc(yj);DELPHI字符串列表使用var tips:tstringlist;tips:=tstringlist.create;tips.loadfromfile(filename.txt);edit1.text:=tips0;tips.add(last line addition string);tips.insert(1,insert string at NO 2 line);tips.savetofile(newfile.txt);tips.free;DELPHI简单的剪贴板操作richedit1.selectall;richedit1.copytoclipboard;richedit1.cuttoclipboard;edit1.pastefromclipboard;DELPHI关于文件、目录操作Chdir(c:abcdir);转到目录Mkdir(dirname);建立目录Rmdir(dirname);删除目录GetCurrentDir;/取当前目录名,无Getdir(0,s);/取工作目录名s:=c:abcdir;Deletfile(abc.txt);/删除文件Renamefile(old.txt,new.txt);/文件更名ExtractFilename(filelistbox1.filename);/取文件名ExtractFileExt(filelistbox1.filename);/取文件后缀DELPHI处理文件属性attr:=filegetattr(filelistbox1.filename); 版权申明：本站文章均来自网络，如有侵权，请联215，我们收到后立即删除,谢谢！ 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 abc.txt);ShellExecute或ShellExecuteEx/启动文件关联程序function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;ExecuteFile(C:abca.txt,x.abc,c:abc,0);ExecuteFile(,0);ExecuteFile(mailto:,0);DELPHI取得系统运行的进程名var hCurrentWindow:HWnd;szText:array0.254 of char;beginhCurrentWindow:=Getwindow(handle,GW_HWndFrist);while hCurrentWindow 0 dobeginif Getwindowtext(hcurrnetwindow,sztext,255)0 then listbox1.items.add(strpas(sztext);hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext); . end;end;DELPHI关于汇编的嵌入Asm End;可以任意修改EAX、ECX、EDX;不能修改ESI、EDI、ESP、EBP、EBX。DELPHI关于类型转换函数FloatToStr/浮点转字符串FloatToStrF/带格式的浮点转字符串IntToHex/整数转16进制TimeToStrDateToStrDateTimeToStrFmtStr/按指定格式输出字符串FormatDateTime(YYYY-MM-DD,hh-mm-ss,DATE);DELPHI字符串的过程和函数 Insert(obj,target,pos);/字符串target插入在pos的位置。如插入结果大于target最大长度,多出字符将被截掉。如Pos在255以外,会产生运行错。例如,st:=Brian,则Insert(OK,st,2)会使st变为BrOKian。 Delete(st,pos,Num);/从st串中的pos(整型)位置开始删去个数为Num(整型)个字符的子字串。例如,st:=Brian,则Delete(st,3,2)将变为Brn。 Str(value,st);/将数值value(整型或实型)转换成字符串放在st中。例如,a=2.5E4时,则str(a:10,st)将使st的值为 25000。 Val(st,var,code);/把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。 ! Copy(st.pos.num);/返回st串中一个位置pos(整型)处开始的,含有num(整型)个字符的子串。如果pos大于st字符串的长度,那就会返回一个空串,如果pos在255以外,会引起运行错误。例如,st:=Brian,则Copy(st,2,2)返回ri。 Concat(st1,st2,st3,stn);/把所有自变量表示出的字符串按所给出的顺序连接起来,并返回连接后的值。如果结果的长度255,将产生运行错误。例如,st1:=Brian,st2:= ,st3:=Wilfred,则Concat(st1,st2,st3)返回Brian Wilfred。 Length(st);/返回字符串表达式st的长度。例如,st:=Brian,则Length(st)返回值为5。 Pos(obj,target);/返回字符串obj在目标字符串target的第一次出现的位置,如果target没有匹配的串,Pos函数的返回值为0。例如,target:=Brian Wilfred,则Pos(Wil,target)的返回值是7,Pos(hurbet,target)的返回值是0。 DELPHI关于处理注册表uses Registry;var reg:Tregistry;reg:=Tregistry.create;reg.rootkey:=HKey_Current_User;reg.openkey(Control PanelDesktop,false);reg.WriteString(Title Wallpaper,0);reg.writeString(Wallpaper,filelistbox1.filename);reg.closereg;reg.free;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_DOWNF1-F12:$70(112)-$7B(123)A-Z:$41(65)-$5A(90)0-9:$30(48)-$39(57)DELPHI初步判断程序母语DELPHI软件的DOS提示:This Program Must Be Run Under Win32.VC 软件的DOS提示:This Program Cannot Be Run In DOS Mode.DELPHI操作Cookieresponse.cookies(name).domain:=;with response.cookies.add dobeginname:=username;value:=username;endDELPHI增加到文档菜单连接uses shellapi,shlOBJ;shAddToRecentDocs(shArd_path,pchar(filepath);/增加连接shAddToRecentDocs(shArd_path,nil);/清空杂类备份智能ABC输入法词库 . windowssystemuser.remwindowssystemtmmr.remDELPHI判断鼠标按键if GetAsyncKeyState(VK_LButton)0 then . /左键if GetAsyncKeyState(VK_MButton)0 then . /中键if GetAsyncKeyState(VK_RButton)0 then . /右键DELPHI设置窗体的最大显示onFormCreate事件self.width:=screen.width;self.height:=screen.height;DELPHI按键接受消息OnCreate事件中处理:Application.OnMessage:=MyOnMessage;procedure TForm1.MyOnMessage(var MSG:TMSG;var Handle:Boolean);beginif msg.message=256 then . /ANY键if msg.message=112 then . /F1if msg.message=113 then . /F2end;杂类隐藏共享文件夹共享效果:可访问,但不可见(在资源管理、网络邻居中)取共享名为:direction$访问:/computer/dirction/Java ScriptJava Script网页常用效果网页60秒定时关闭关闭窗口关闭定时转URL数据源,一个是MQIS,一个是LocalSever,任选一个选后点击配置按钮,不知你的SQL7.0是不是安装在本地机器上,如果是的话直接进行下一步,如果不是,在服务器一栏中填上Server,然后进行下一步,填写登录ID 和密码(登录ID,和密码是在SQL7.0中的用户选项中设的)。第二步,配置BDE:打开Delphi的BDE,然后点击MQIS 或 LocalServer,就会提示用户名和密码,这和ODBC的用户名和密码是一样的,填上就行了。第三步,配置程序:如果用的是TTable,就在TTable的DatabaseName中选择MQIS 或LocalServer,然后在TableName中选择Sale就行了,然后将Active改为True,Delphi弹出提示对话,填入用户名和密码。如果用的是TQuery,在TQuery上点击右键,再击SQL Builder,这是以界面方式配置SQL语句,或者在TQuery的SQL中填入SQL语句。最后,别忘了将Active改为True。在运行也可能配置TQuery,具体见Delphi帮助。DELPHI得到图像上某一点的RGB值procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);varred,green,blue:byte ;i:integer;begini:= image1.Canvas.Pixelsx,y;Blue:= GetBValue(i);Green:= GetGValue(i): Red:= GetRValue(i); Label1.Caption:=inttostr(Red);Label2.Caption:=inttostr(Green);Label3.Caption:=inttostr(Blue);end;DELPHI关于日期格式分解转换var year,month,day:word;now2:Tdatatime;now2:=date();decodedate(now2,year,month,day);lable1.Text :=inttostr(year) 年 inttostr(month) 月 inttostr(day) 日; . DELPHI如何判断当前网络连接方式判断结果是MODEM、局域网或是代理服务器方式。uses wininet; Function ConnectionKind :boolean; var flags: dword; begin Result := InternetGetConnectedState(flags, 0); if Result then begin if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then begin showmessage(Modem); end; if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then begin showmessage(LAN); end; if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then begin showmessage(Proxy); end; if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then begin showmessage(Modem Busy); end; end; end; DELPHI如何判断字符串是否是有效EMAIL地址function IsEMail(EMail: String): Boolean; var s: String;ETpos: Integer; begin ETpos:= pos(, EMail); if ETpos 1 then begin s:= copy(EMail,ETpos 1,Length(EMail); 。 if (pos(., s) 1) and (pos(., s) length(s) then Result:= true else Result:= false; end else Result:= false; end; DELPHI判断系统是否连接INTERNET需要引入URL.DLL中的InetIsOffline函数。 函数申明为:function InetIsOffline(Flag: Integer): Boolean; stdcall; external URL.DLL; 然后就可以调用函数判断系统是否连接到INTERNETif InetIsOffline(0) then ShowMessage(not connected!) else ShowMessage(connected!); 该函数返回TRUE如果本地系统没有连接到INTERNET。附:大多数装有IE或OFFICE97的系统都有此DLL可供调用。InetIsOfflineBOOL InetIsOffline(DWORD dwFlags, );DELPHI简单地播放和暂停WAV文件uses mmsystem;function PlayWav(const FileName: string): Boolean; begin Result := PlaySound(PChar(FileName), 0, SND_ASYNC); end; procedure StopWav; var buffer: array0.2 of char; begin buffer0 := #0; PlaySound(Buffer, 0, SND_PURGE); end; DELPHI取机器BIOS信息 . with Memo1.Lines do begin Add(MainBoardBiosName: I string(Pchar(Ptr($FE061); Add(MainBoardBiosCopyRight: I string(Pchar(Ptr($FE091); Add(MainBoardBiosDate: I string(Pchar(Ptr($FFFF5); Add(MainBoardBiosSerialNo: I string(Pchar(Ptr($FEC71); end; DELPHI网络下载文件uses UrlMon;function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; if DownloadFile(/delphi6.zip, c:kylix.zip) then ShowMessage(Download succesful) else ShowMessage(Download unsuccesful) DELPHI解析服务器IP地址uses winsock function IPAddrToName(IPAddr : String): String; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr); 特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系. HostEnt:= gethostbyaddr(SockAddrIn.sin_addr.S_addr, 4, AF_INET); if HostEntnil then result:=StrPas(Hostent.h_name) else result:=; end; DELPHI取得快捷方式中的连接function ExeFromLink(const linkname: string): string; var FDir, FName, ExeName: PChar; z: integer; begin ExeName:= StrAlloc(MAX_PATH); FName:= StrAlloc(MAX_PATH); FDir:= StrAlloc(MAX_PATH); StrPCopy(FName, ExtractFileName(linkname); StrPCopy(FDir, ExtractFilePath(linkname); z:= FindExecutable(FName, FDir, ExeName); if z 32 then Result:= StrPas(ExeName) else Result:= ; StrDispose(FDir); StrDispose(FName); StrDispose(ExeName); end; DELPHI控制TCombobox的自动完成Sorted property of the TCombobox to true var lastKey: Word; /全局变量/TCombobox的OnChange事件 procedure TForm1.AutoCompleteChange(Sender: TObject);var SearchStr: string; retVal: integer; begin SearchStr := (Sender as TCombobox).Text; if lastKey VK_BACK then / backspace: VK_BACK or $08 begin retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr); if retVal CB_Err then begin (Sender as TCombobox).ItemIndex := retVal; (Sender as TCombobox).SelStart := Length(SearchStr); (Sender as TCombobox).SelLength := (Length(Sender as TCombobox).Text) - Length(SearchStr); end; / retVal CB_Err end; / lastKey VK_BACK lastKey := 0; / reset lastKey end; /TCombobox的OnKeyDown事件procedure TForm1.AutoCompleteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin lastKey := Key; end; DELPHI如何清空一个目录 function EmptyDirectory(TheDirectory :String ; Recursive : Boolean) :Boolean;varSearchRec : TSearchRec;Res : Integer;beginResult := False;TheDirectory := NormalDir(TheDirectory); 。 Res := FindFirst(TheDirectory *.*, faAnyFile, SearchRec);trywhile Res = 0 dobeginif (SearchRec.Name .) and (SearchRec.Name .) thenbeginif (SearchRec.Attr and faDirectory) 0) and Recursivethen beginEmptyDirectory(TheDirectory SearchRec.Name, True);RemoveDirectory(PChar(TheDirectory SearchRec.Name);endelse beginDeleteFile(PChar(TheDirectory SearchRec.Name)end;end;Res := FindNext(SearchRec);end;Result := True;finallyFindClose(SearchRec.FindHandle);end;end;DELPHI如何计算一个目录的大小 function GetDirectorySize(const ADirectory: string): Integer;varDir: TSearchRec;Ret: integer;Path: string;beginResult := 0;Path := ExtractFilePath(ADirectory);Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);if Ret NO_ERROR then exit;trywhile ret=NO_ERROR dobegininc(Result, Dir.Size);if (Dir.Attr in faDirectory) and (Dir.Name1 .) then 对真正的成功者来说，不论他的生存条件如何，都不会自我磨灭 Inc(Result, GetDirectorySize(Path Dir.Name *.*);Ret := Sysutils.FindNext(Dir);end;finallySysutils.FindClose(Dir);end;end;DELPHI安装程序如何添加到Uninstall列表操作注册表,如下:1.在HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall键下建立一个主键,名称任意。例HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstallMyUninstall2.在HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstallMyUnistall下键两个串值,这两个串值的名称是特定的:DisplayName和UninstallString。3.给串DisplayName赋值为显示在“删除应用程序列表”中的名称,如Aiming Uninstall one;给串UninstallString赋值为执行的删除命令,如 C:WIN97uninst.exe -fC:TestProaimTest.isuDELPHI截获WM_QUERYENDSESSION关机消息typeTForm1 = class(TForm)procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;private . Private declarations public Public declarations end;procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);beginShowmessage(computer is about to shut down);end;DELPHI获取网上邻居procedure getnethood();/NT做服务器,WIN98上调试通过。vara,i:integer;errcode:integer;netres:array0.1023 of netresource;enumhandle:thandle;enumentries:dword;buffersize:dword;s:string;mylistitems:tlistitems;mylistitem:tlistitem;alldomain:tstrings;begin /listcomputer is a listview to list all computers;controlcenter is a form.alldomain:=tstringlist.Create ;with netres0 do begindwscope :=RESOURCE_GLOBALNET;dwtype :=RESOURCETYPE_ANY;dwdisplaytype :=RESOURCEDISPLAYTYPE_DOMAIN;dwusage :=RESOURCEUSAGE_CONTAINER;lplocalname :=nil;lpremotename :=nil;lpcomment :=nil;lpprovider :=nil;end; / 获取所有的域errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,netres0,enumhandle); . if errcode=NO_ERROR then beginenumentries:=1024;buffersize:=sizeof(netres);errcode:=wnetenumresource(enumhandle,enumentries,netres0,buffersize);end;a:=0;mylistitems :=controlcenter.lstcomputer.Items ;mylistitems.Clear ;while (string(netresa.lpprovider) and (errcode=NO_ERROR) dobeginalldomain.Add (netresa.lpremotename);a:=a 1;end;wnetcloseenum(enumhandle);/ 获取所有的计算机mylistitems :=controlcenter.lstcomputer.Items ;mylistitems.Clear ;for i:=0 to alldomain.Count-1 dobeginwith netres0 do begindwscope :=RESOURCE_GLOBALNET;dwtype :=RESOURCETYPE_ANY;dwdisplaytype :=RESOURCEDISPLAYTYPE_SERVER;dwusage :=RESOURCEUSAGE_CONTAINER;lplocalname :=nil;lpremotename :=pchar(alldomaini);lpcomment :=nil;lpprovider :=nil;end;ErrCode:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,netres0,EnumHandle);if errcode=NO_ERROR thenbeginEnumEntries:=1024;BufferSize:=SizeOf(NetRes);ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,NetRes0,BufferSize);end;a:=0;while (string(netresa.lpprovider) and (errcode=NO_ERROR) dobeginmylistitem :=mylistitems.Add ;mylistitem.ImageIndex :=0;mylistitem.Caption :=uppercase(stringreplace(string(NetResa.lpremotename),rfReplaceAll);a:=a 1;end;wnetcloseenum(enumhandle);end;end;DELPHI获取某一计算机上的共享目录procedure getsharefolder(const computername:string);varerrcode,a:integer;netres:array0.1023 of netresource;enumhandle:thandle;enumentries,buffersize:dword;s:string;mylistitems:tlistitems;mylistitem:tlistitem;mystrings:tstringlist;beginwith netres0 do begindwscope :=RESOURCE_GLOBALNET;dwtype :=RESOURCETYPE_DISK;dwdisplaytype :=RESOURCEDISPLAYTYPE_SHARE;dwusage :=RESOURCEUSAGE_CONTAINER;lplocalname :=nil; . lpremotename :=pchar(computername);lpcomment :=nil;lpprovider :=nil;end; / 获取根结点errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,netres0,enumhandle);if errcode=NO_ERROR thenbeginEnumEntries:=1024;BufferSize:=SizeOf(NetRes);ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,NetRes0,BufferSize);end;wnetcloseenum(enumhandle);a:=0;mylistitems:=controlcenter.lstfile.Items ;mylistitems.Clear ;while (string(netresa.lpprovider) and (errcode=NO_ERROR) dobeginwith mylistitems dobeginmylistitem:=add;mylistitem.ImageIndex :=4;mylistitem.Caption :=extractfilename(netresa.lpremotename);end;a:=a 1;end;end;DELPHI得到硬盘序列号var SerialNum : pdword; a, b : dword; Buffer : array 0.255 of char; begin if GetVolumeInformation(c:, Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum); end; DELPHIMEMO的自动翻页 . Procedure ScrollMemo(Memo : TMemo; Direction : char); begin case direction of d: begin SendMessage(Memo.Handle, HWND of the Memo Control WM_VSCROLL, Windows Message SB_PAGEDOWN, Scroll Command 0) Not Used end; u : begin SendMessage(Memo.Handle, HWND of the Memo Control WM_VSCROLL, Windows Message SB_PAGEUP, Scroll Command 0); Not Used end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ScrollMemo(Memo