摘要：procedure SaveToExcel(AFile:string);varsheet,XLApp,workbook:Variant;iRow,MaxRow:integer;beginscreen.Cursor :=TADOTable.Create(nil);ADOTable.Connectionstring :=FConnstr;XLApp:=CreateObject('Excep.Application');workbook:=CreateObject('Excel.Sheet');XLApp.DisplayAlerts :=false;XLApp.Scr 阅读全文

摘要：procedure GetDiskInfo(var TotalSize,FreeSize:Integer;Disk:string); //单位为兆(M)varfreespace,totalspace:int64;beginif (Pos('\',TrimRight(Disk)<>Length(Disk) thenDisk :=Disk+'\';GetDiskFreeSpaceEx(pchar(Disk),freespace,totalspace,nil);TotalSize :=totalspace div 1024 div 1024;freesiz 阅读全文

摘要：procedure SetIISDir(Dir,BieMing:string);varI:IADSContainer;ADS:IADS;beginif ADSGetObject('IIS://localhost/w3svc',IID_IADSContainer,IUnkown(I))=S_OK thenbeginADS :=IADS(I.GetObject('IISWebServer','1'));if ADS.QueryInterface(IID_IADSContainer,I)=S_OK) thenbeginADS :=IADS(I.GetO 阅读全文

摘要：uses ShlObj;写入ShAddtoRecentDes(SHARE_PATH,pchar('C:\1.txt')); 阅读全文

摘要：加一过程procedure WMhotkeyhandle(var msg:TMessage); message wm_hotkey;procedure TForm1.WMHotkeyhandle(var msg:TMessage);beginif (msg.LParamHi=$41) and (msg.LParamLo=NOD_CONTROL or mod_Alt) thenbeginmsg.Result :=1;Application.BringToFront;end;end;//注册热键procedure TForm1.FormCreate(Sender:TObject);beginhot 阅读全文

摘要：在窗体上加入TeeChart控件，并通过属性加入4个TLineSeries，分别命名为Series1,Series2,Series3,Series4,并添加一按钮Button1,其Click事件为:procedure TForm1.Button1Click(Sender:TObject);beginSeries1.FillSampleValues(200);Series2.FillSampleValues(200);Series3.FillSampleValues(200);Series4.FillSampleValues(200);with chart1.LeftAxis dobeginst 阅读全文

摘要：1.先在Access中建立一带参数的查询，如“查询1”，select qdj for xxj_qdj2006_06_30 when dm=tmp2.在Delphi中加入一ADOQuery控件，指向Access数据库，并在SQL属性中加入select * from 查询1,这时在parameters会自动加入一参数tmp3.加入一按钮，写入with adoquery1 dobeginclose;parameters.Parambyname('tmp').Value :='4011223999';Open;end; 阅读全文

摘要：//要加入GIFImage单元procedure TxtToGIF(txt,FileName:string;Img:TImag);vartemp:TBitmap;GIF:TGIFImage;begintemp :=TBitmap.Create;trytemp.Height :=400;temp.Width :=60;temp.Transparent :=True;temp.Canvas.Brush.Color :=clWhite;temp.Canvas.Font.Name :='宋体';temp.Canvas.Font.Color :=clBlue;temp.Canvas.Te 阅读全文

摘要：procedure deregisterFileType(ft:string);varmyreg:TRegistry;key:string;begin myreg :=TRegistry.Create;myreg.Rootkey :=HKEY_CLASSES_ROOT;myreg.OpenKey(ft,False;);key :=MyReg.ReadString('');myreg.CloseKey;myreg.DeleteKey(ft);myreg.DeleteKey(key);myreg.Free;end; 阅读全文

摘要：procedure registerfiletype(ft,key,dess,icon,prg:string);//ft:扩展名(如.txt); key:名称(不是必须的)//desc: 描述；　icon:默认图标(不是必须的)//prg: 打开该文件扩展名的EXE程序varmyReg:TReginifile;ct:Integer;beginct :=pos('.',ft);while (ct>0) dobegindelete(ft,cc,1);cc :=pos('.',ft);end;if (ft='') or (prg=' 阅读全文

摘要：procedure AnsyTime(const DataBasename,Sconn:string);var td:SYSTEMTIME;ft:FILETIME;begin with TADOQuery.Create(nil) dotry Connection :=Sconn;SQL.Clear; SQL.Text :='Select td=getdate()';Open;DateTimeToSystemTime(FieldByName('td').AsDateTime,td);SystemTimeToFileTime(td,ft);LocalFileTime 阅读全文

摘要：varr:Rect;beginSystemParametersInfo(SPI_GETWORKAREA,0,@r,0);Showmessage(inttostr(Screen.Height-(r.Buttom-r.Top)));end; 阅读全文

摘要：隐藏任务栏vartaskbarhandle:HWND;begintaskbarhandle :=FindWindow('Shell_TrayWnd',nil);Showwindow(taskbarhandle,SW_HIDE)end;显示任务栏vartaskbarhandle:HWND;begintaskbarhandle :=FindWindow('Shell_TrayWnd',nil);Showwindow(taskbarhandle,SW_RESTORE)end; 阅读全文

摘要：function GetDisplayFrequency:integer;varDeviceMode:TDeviceMode;beginEnumDisplaySetting(nil,Cardinal(-1),DeviceMode);Result :=DeviceMode.dmDisplayFrequency;end; 阅读全文

摘要：function CPUSpeed:Double;constDelayTime=500;varTimerHi,TimerLo:Dword;PriorityCals,Priority:Integer;beginPriorityClass :=GetPriorityClass(GetCurrentProcess);Priority :=GetThreadPririty(GetCurrentThread);SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);SetThreadPriority(GetCurrentThread,THR 阅读全文

摘要：SendMessage(Application.Handle,WM_SYSCOMAND,SC_TASKLIST,0); 阅读全文

摘要：varBuffer:array[0..255] of char;Len:integer;beginLen :=255;GetEnvironmentVariable('USERDOMAIN',Buffer,Len);ShowMessage(Buffer);end; 阅读全文

摘要：function BDEInstalled:Booleanvarreg:TRegistry;s:string;beginResult :=False;reg :=TRegistry.Create;reg.Rootkey :=HKEY_LOCAL_MACHINE;reg.Openkey('Software\Borland\Database Engine',False);s:='';trys:=reg.ReadString('CONFIGFILE01');if s<>'' thenResult :=True;finally 阅读全文

摘要：procedure TForm1.Buuton1Click(Sender:TObject);begincase (GetSystemMetrix(SM_CLEANBOOT)) of0: Showmessage('正常模式启动');1: Showmessage('安全模式启动');2: Showmessage('正常模式启动,但附带网络功能')elseApplication.MessageBox('错误，系统启动有问题','警告',MB_ICONWARNING);end;end; 阅读全文

摘要：functionRandomizw:string;varok:array[0..2] of byte;sp:char;beginok[0] :=random(72)+176;ok[1] :=random(94)+161;ok[2] :=0;sp :=@ok;Result :=string(sp);end; 阅读全文