myamanda

摘要： {------}procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);beginif Msg.Message = WM_KEYDOWN thenbeginif Msg.wParam = VK_RETURN thenKeybd_event(VK_TAB, 0, 0, 0);end; //ifend;{------}... 阅读全文

摘要： 使用API函数'ExecuteProcess'执行一个应用程序,使用'TerminateProcess'终止它。以下是一个例子：varMyHandle: THandle;MyStartupInfo: TStartupInfo;MyProcessInfo: TProcessInformation;procedure TMyForm.ExecuteApp(MyPath: String);beginFi... 阅读全文

摘要： varWorkgroupCount : Integer;Workgroup: Array[1..500] of String[25];Procedure FindAllWorkgroups;VarEnumHandle: THandle;EntireNetwork: TNetResource;Buf: Array[1..500] of TNetResource;BufSize: Integer; /... 阅读全文

摘要： uses wininet;procedure TForm1.Button1Click(Sender: TObject);var cache_info:PInternetCacheEntryInfo; cbSizeOf_Cache_info:dword; hw:hwnd; buf:tstrings;begin new(cache_info); hw:=FindFirstUrlCacheE... 阅读全文

摘要： varComputer: Array[1..500] of String[25];ComputerCount: Integer;procedure FindAllComputers(Workgroup : String);VarEnumHandle: THandle;WorkgroupRS: TNetResource;Buf: Array[1..500] of TNetResource;BufSi... 阅读全文

摘要： {使用Windows API函数 ClipCursor, 可以限制鼠标在屏幕中指定的矩形范围里移动:}//限制鼠标在窗体中的移动//并在单击窗体后释放鼠标procedure TForm1.FormCreate(Sender: TObject);var r : TRect;begin//加限制前先把鼠标移动到指定的矩形范围里r := BoundsRect;ClipCursor(@R);end;pro... 阅读全文

摘要： 函数如下：procedure SetCapsLockKey( vcode: Integer; down: Boolean );beginif Odd(GetAsyncKeyState( vcode )) down thenbeginkeybd_event( vcode, MapVirtualkey( vcode, 0 ),KEYEVENTF_EXTENDEDKEY, 0);keybd_event... 阅读全文

摘要： 如果你想要改变Windows的缺省打印机,你必须在Windows的WIN.INI中改变设备键。发送一条 WM_WININICHANGE 消息：varstrIni: array[0..MAX_PATH] of Char;arrWindows: array[0..64] of Char;beginGetWindowsDirectory(strIni, SizeOf(strIni));StrCat(st... 阅读全文

摘要： 本文将介绍在Delphi中如何使用“体贴板”，来丰富自己的软件功能。 ---- Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。我们大... 阅读全文

摘要： GoBack：方法，后退到上一个页面。GoForward：方法，前进到下一个页面。GoHome：方法，调用默认的主页页面，该页面在IE的选项中设定。GoSearch：方法，调用默认的搜索页面，该页面在IE的选项中设定。Refresh：方法，刷新当前页面。Stop：方法，停止调用或打开当前页面。LocationName：属性(WideString)，当前位置的名称。LocationURL：属性(Wi... 阅读全文