http://community.csdn.net/Expert/topic/4057/4057856.xml?temp=.2689783我现在只找到开/关自动完成的方法，就是将：HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/AutoComplete下面的AutoSuggest的值修改为Yes或者No这里有

1、先创建一个文本文件，把登录明、密码和你要执行的操作写进去：2222233333asciiget DosFtpFile.txtquit其中第一行是用户名，第二行是密码，最后一行是退出命令。然后保存这个文件，假设文件名是sss.ftp2、创建bat文件，这个文件只有一行：ftp -s:sss.ftp ftp.myserver.com其中sss.ftp是你第一步创建的文件名，ftp.myserver

在窗体的OnCreate事件中加入如下代码：OleInitialize(nil);在OnClose事件中加入代码：OleUninitialize;procedure TForm1.FormCreate(Sender: TObject);begin  OleInitialize(nil);end;procedure TForm1.FormClose(Sender: TObject; var Acti

 procedure GenerateJPEGfromBrowser(browser: iWebBrowser2;                                  jpegFQFilename: string; srcHeight:                                  integer; srcWidth: integer;          

frmUpdate = class(TForm,IBindStatusCallback)    ImgTop: TImage;    LblTop: TLabel;    SpdBtnClose: TSpeedButton;    Bevel1: TBevel;    plStatus: TPanel;    plInfo: TPanel;    btnCancel: TFlatSpeedButt

我在用VB在做一个东西,现需要一个函数能实现如下功能:将指定URL处的文件下载到指定的文件夹里,并能保持原来的类型不变.参数有三:一个是URL,指定文件的下载地址,一个是本地保存路径,是个文件夹,比如说"D:/TMP",一个是文件类型,比如PDF,DOC可以通过Microsoft Internet Transfer Control来实现下载：strURL = "http://www.GreatSi

获得当前系统的Tcp所有打开端口及IP地址 提交日期:2003-11-22 作者:cjsh  关键词:TCP 端口 IP地址 Ip Helper API  //GetTcpTable函数单元unit untIPHLPAPI;interfaceusesWindows, sysutils, WinSock;typeEIpHlpError = class(Exception);//-----------

在webbrowser中显示的网页，选中其中文字进行复制好像不起作用，不管是用鼠标右键还是直接CTRL-C，都没有复制到剪切板去，无法粘贴出来。在窗体的OnCreate事件中加入如下代码：OleInitialize(nil);在OnClose事件中加入代码：OleUninitialize;procedure TForm1.FormCreate(Sender: TObject);begin  Ole

http://community.csdn.net/Expert/topic/3923/3923699.xml?temp=.3165094调用SHGetFileInfo函数，假设sExt是你的文件名。var  sfi:TSHFileInfo;  i:Integer;begin  //获得文件的扩展名  i:= slIcon.IndexOf(sExt);  if i>-1 then    Resul

localname:本地磁盘号 如：Y: Z: remotename: 共享路径 如 ://server/shareusername : 用户名password: 密码function connectserver(localname: string; remotename: string; username: string; password: string): boolean;var  NetS

使用webbrowser控件，浏览页面时，点右键查看属性时程序死掉，表现为无法点击弹出的属性窗口，也无法点击程序，回车键也不行，但是按esc可以关闭属性窗口。已知解决方法：设置程序form的border不为bsnone,就正常。但是现在程序必须使用无边框窗体。用下面的代码先修改一下窗体的Style就可以了：var  x:Integer;begin  x := GetwindowLong(form1

procedure TForm1.Button1Click(Sender: TObject);var  xWin:TShellWindows;  i : integer;  x1,x2,x3 : olevariant;begin  x1 := {30D02401-6A81-11D0-8274-00C04FD5AE38};  x2 := True;  x3 := 0;  xWin := TShe

Install a new printer on the system:http://www.devx.com/vb2themax/Tip/19284Private Type PRINTER_INFO_2 pServerName As String pPrinterName As String pShareName As String pPortName A

1、在窗体中添加一个PictureBox控件2、将控件的OLEDropMode设置为13、在OLEDragDrop事件中通过Data.Files(1)就可以获得IE中拖放过来的图片在IE临时文件夹中的全路径名。将这个文件拷贝到你需要的地方就可以了。