Question

求助！delphi实现开机自动运行，修改IE主页等功能

本人对delphi不是很熟悉，请大家帮忙写一下以上功能的代码，或者有类似的源码也可以。在下感激不尽！！

Answer 1

TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对
象，这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。
2、item[index] ,通过index得到节点。
二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个
节点，则后添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点，要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点，要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点，要求有兄弟节点作为其参数。返回新添加的节点。
三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有：
GetFirstNode() 得到根节点。
然后配合TTreeNode.GetNext(),就可以访问所有的节点。
四、建树举例：
var
root_node,cur_node:TTreeNode;
beginroot_node:=AddFirst(nil,'根节点1');
cur_node:=addChildfirst(root_node,nil,'根节点1_child1');
add(cur_node,'根节点1_child2');root_node:=Add(nil,'根节点2');
AddChildFirst(root_node,''根节点2_child1');
end;
五、事件触发：
当从一个节点跳到另一个节点，会触发TTreeView.OnChange事件。
该事件中，将传递node,即当前被选中的节点。当修改一个节点的text时，会触发TTreeView.onEdit事件。
六、将节点和节点所对应的数据联系起来对于每个TTreeNode,有个Data属性，可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。
1.我们先定义一个数据结构，作为记录我们要记录的数据。如：
type PMyData=^TMyData;
TMyData=RecordsFName:string;
sLName:String;nIndex:integer;
end;
2.然后，创建数时，将节点和节点数据联系起来：
procedure TForm1.Button1Click(Sender: TObject);
varmyshuju:
PMyDatacur_node:TTreeNode;
beginNew(MyRecPtr); //记住，一定要先分配内存。有几个节点，
就要分配几次内存
。myshuju^.FName:=Edit1.Text;
Myshuju^.LName := Edit2.Text;
TreeViewIndex := StrToInt(Edit3.Text);
with TreeView1 dobegincur_node:=items.AddFirst(nil,'first');
cur_node.data:=myshuju;end;
end;
3.当我们选中一个节点时，就可以使用我们的数据了。
procedure TForm1.TreeView1Change(Sender:TObject;
Node:TTreeNode);
beginif node.data<>nil thenself.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lname
end;
七、一般使用流程：
1、添加全局变量：
b_first:boolean; //记录是否是第一次访问节点，因为此时数据还未准备好，而一旦访问节点
就会触发OnChange事件，在此事件处理函数中也许会出错。
2、在FormCreate中，
a、设置b_first:=true;
b. 创建数并将节点与数据联系。
3、在FormShow中设置b_first:=false;
4.在事件OnChange中处理节点被选中事件。
5.在Edit中处理节点被修改Text事件。并调用OnChange.
6.在 TreeView.Destory中释放Data 中指向的内存空间。
另外 动态调节image大小 请使用 imgSuit.Stretch := True;

Answer 2

program Project2;uses SysUtils, Windows;function WriteStrToReg(vfRootKey: HKEY; vfKeyPath, vfStrName, vfStrValue: string):Boolean;var vHKEY : HKEY;begin if RegOpenKey(vfRootKey, PAnsiChar(vfKeyPath), vHKEY) <> ERROR_SUCCESS then Exit; RegSetValueEx(vHKEY, PAnsiChar(vfStrName), 0, REG_SZ, PAnsiChar(vfStrValue), sizeof(vfStrValue)); RegCloseKey(vHKEY);end;var vSelfPath:string;const cIEHome = ' http://www.baidu.com/'; //要修改的主页begin vSelfPath := ParamStr(0)+' /start'; if ParamStr(1) = '/start' then begin MessageBox(0, PAnsiChar('实现自启动了'), PAnsiChar('消息'), 0); Exit; end; WriteStrToReg(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'AutoRunSelf', ParamStr(0) + ' /start'); WriteStrToReg(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Explorer\Main', 'Start Page', cIEHome);end.

Answer 3

对注册表操作就可以实现