思洋互动网站建设学前班

随着Web技术的发展和电子商务时代的到来，人们不再满足于建立各种静态地发布信息的网站，更多的时候需要能与用户进行交互，并能提供后台数据库的管理和控制等服务的动态网站。

+阅读全文

[DELPHI]读硬盘序列号 function GetDiskSerial(DiskChar: Char): string; var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char; begin result := ; if GetVolumeInformation(PChar(diskchar+:\), Buffer, SizeOf(Buffer), SerialNu

+阅读全文

[DELPHI]列举当前系统运行进程 uses TLHelp32; procedure TForm1.Button1Click(Sender: TObject); var lppe: TProcessEntry32; found : boolean; Hand : THandle; begin Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0); found := Process32Fi

+阅读全文

[DELPHI]把文件全部复制到剪贴板 uses shlobj,activex,clipbrd; procedure Tform1.copytoclipbrd(var FileName:string); var FE:TFormatEtc; Medium: TStgMedium; dropfiles:PDropFiles; pFile:PChar; begin FE.cfFormat := CF_HDROP; FE.dwAspect

+阅读全文

[DELPHI]目录完全删除(deltree) procedure TForm1.DeleteDirectory(strDir:String); var sr: TSearchRec; FileAttrs: Integer; strfilename:string; strPth:string; begin strpth:=Getcurrentdir(); FileAttrs := faAnyFile; if FindFirst(strpth+\+str

+阅读全文

[DELPHI]如何安装控件 安装方法: 1.对于单个控件,Component--install component..--PAS或DCU文件--install 2.对于带*.dpk文件的控件包,File--open(下拉列表框中选*.dpk)--install即可. 3.对于带*.dpl文件的控件包

+阅读全文

[DELPHI]获取某一计算机上的共享目录 procedure getsharefolder(const computername:string); var errcode,a:integer; netres:array[0..1023] of netresource; enumhandle:thandle; enumentries,buffersize:dword; s:string; mylistitems:tlisti

+阅读全文

[DELPHI]安装程序如何添加到Uninstall列表 操作注册表,如下: 1.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall键下建立一个主键,名称任意。 例HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\

+阅读全文