思洋互动网站建设学前班

经常看到很多朋友谈，关于做 网站优化 时说到分析竞争对手网站；个人认为，分析竞争对手是没错，必竟了解敌人，方能有更大的取胜机率。 但是没必要向有些站长们谈的技术文章那

+阅读全文

关键词 是 网站优化 中至关重要的一个部分，也是搜索引擎蜘蛛（spider）认识网站的重要凭据。关键词的优化是一门学问，比如你做一个像站长类网站，如何把关键词新手站长这一个关

+阅读全文

[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

+阅读全文