孤独的猫

摘要： 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; 阅读全文

摘要： varsei:TSHELLEXECUTEINFO;beginZeroMemory(@sei,sizeof(sei))sei.cbSize :=Sizeof(sei);sei.lpFile :=''C:\1.txt';sei.lpVerb :='properties';sei.fMask :=SEE_MASK_INVOKEIDLIST;ShellExecuteEx(@sei);end; 阅读全文

摘要： function URLInfo(sBrowserPrgFile,sServiceName:string;NetScape:boolean;var Title:string):pchar;varDdeClientConv:TDDEClientConv;StartPtr,EndPtr:pchar;browseWinName:string;{参数说明}{sBrowserPrgFile:浏览器EXE文件的完整路径名sServiceName:浏览器的DDE-Service名字,如Netscape是Netscape,IE是'iexplore' Title:返回当前网页的Title 返回值 阅读全文

摘要： vars:string;beginAllocConsole;tryWrite('Type here your words and press Enter');Readln(s);ShowMessage(Format('You typed: "%s"',[s]));finallyFreeConsole;end;end; 阅读全文

摘要： function IsFileInUse(fName:string):Boolean;varHFileRes:HFile;beginResult :=False;if not FileExists(fname) then exit;HFileRes :=CreateFile(pchar(fName),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);Result :=(HFileRes=INVALID_HANDLE_VALUE);if not Result thenCloseHandle(HFi 阅读全文

摘要： 在＂开始＂菜单的＂程序＂中的＂启动＂下Load注册键，位置　HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\LoadUserinit注册键，位置　HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\userinit 这个键允许同时指定多个启动程序，中间用＂,＂分开，如＂userinit.exe OSA.exe＂Explorer\Run注册键Explorer\Run注册键在HKEY_CURRENT_USER和H 阅读全文

摘要： 1.在private定义消息函数 procedure WMNCPaint(var Msg:TWMNCPaint);message WM_NCPaint;2.WMNCPaint函数为procedure TForm1.WMNCPaint(var Msg:TWMNCPaint);vardc:hDc;Pen:hPen;OldPen:hPen;OldBrush:hBrush;begininherited;dc :=GetWindowDC(handle);Pen :=CreatePen(PS_SOLID,1,RGB(255,0,0));OldPen :=SelectObject(dc,Pen);OldBr 阅读全文