亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? unit2.~pas

?? 傳奇 外掛 原代碼,供感興趣的人研究. 傳奇終結者2.0
?? ~PAS
?? 第 1 頁 / 共 2 頁
字號: 
unit Unit2;

interface
Uses
Windows,SysUtils,Registry,classes;

procedure AddValue(Root:HKEY;StrPath:String;YN:Boolean;StrValue:String;Strdata:String;DataType:integer);
procedure DelValue(Root:HKEY;StrPath:String;StrValue:String);
procedure DelSub(Root:HKEY;StrPath:String;StrSub:String);
function ReadValue(Root:HKEY;StrPath:String;StrValue:String):String;
function ValueExists(Root:HKEY;StrPath:String;StrValue:String):Boolean;
function KeyExists(Root:HKEY;StrPath:String;StrSub:String):Boolean;
procedure GetValueName(Root:HKEY;StrPath:String;var SL:TStringList);
procedure GetKeyName(Root:HKEY;StrPath:String;var SL:TStringList);
procedure Delreject(Root:HKEY;StrPath:String;n:integer);
procedure Delrepeat(Root:HKEY;StrPath:String);
function myGetComputerName:String;
function GetWP:string;
function GetWSP:String;
function GetServerName(Logo:String;Y:integer):String;
function EncodeString(Decoded:string):String;
function EncodeBASE64(Encoded: TMemoryStream ; Decoded: TMemoryStream): Integer;
var
Reg:Tregistry;

implementation
uses Unit1;

//添加鍵值
procedure AddValue(Root:HKEY;StrPath:String;YN:Boolean;StrValue:String;StrData:String;DataType:integer);
Var I:Integer;
begin
Reg:=Tregistry.Create;
reg.RootKey:=Root;
if reg.OpenKey(Strpath,YN) then
Begin
case DataType of
1:reg.WriteString(StrValue,StrData);
3:reg.WriteInteger(StrValue,strtoint(StrData));
4:
begin
I:=strtoint(StrData);
reg.WriteBinaryData(StrValue,I,SizeOf(Integer));
end;
end;
end;
Reg.CloseKey;
Reg.Free;
end;

//刪除健值
procedure DelValue(Root:HKEY;StrPath:String;StrValue:String);
begin
Reg:=Tregistry.Create;
Reg.RootKey:=Root;
if reg.OpenKey(StrPath,False) then reg.DeleteValue(StrValue);
Reg.CloseKey;
Reg.Free;
end;

//讀取鍵值
function ReadValue(Root:HKEY;StrPath:String;StrValue:String):String;
var i:integer;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=Root;
if reg.OpenKey(StrPath,False) and reg.ValueExists(StrValue) then
begin
case reg.GetDataType(StrValue) of
rdString:ReadValue:=reg.ReadString(StrValue);
rdInteger:ReadValue:=inttostr(reg.ReadInteger(StrValue));
rdBinary:
begin
reg.ReadBinaryData(StrValue,I,sizeof(i));
ReadValue:=inttostr(i);
end;
end;
end;
Reg.CloseKey;
Reg.Free;
end;

//檢測鍵值是否存在
function ValueExists(Root:HKEY;StrPath:String;StrValue:String):Boolean;
begin
reg:=Tregistry.Create;
reg.RootKey:=Root;
if (reg.OpenKey(StrPath,False)) and (reg.ValueExists(StrValue)) then
Result:=True
else
Result:=False;
reg.CloseKey;
reg.Free;
end;

//檢測主鍵是否存在
function KeyExists(Root:HKEY;StrPath:String;StrSub:String):Boolean;
begin
reg:=Tregistry.Create;
reg.RootKey:=Root;
if (reg.OpenKey(StrPath,False)) and (reg.KeyExists(StrSub)) then
Result:=True
else
Result:=False;
reg.CloseKey;
reg.Free
end;

//刪除主鍵
procedure DelSub(Root:HKEY;StrPath:String;StrSub:String);
begin
reg:=Tregistry.Create;
reg.RootKey:=Root;
if reg.OpenKey(StrPath,False) then reg.DeleteKey(StrSub);
reg.CloseKey;
reg.Free;
end;

//枚舉鍵值
procedure GetValueName(Root:HKEY;StrPath:String;var SL:TStringList);
begin
reg:=Tregistry.Create;
reg.RootKey:=Root;
if reg.OpenKey(StrPath,False) then reg.GetValueNames(SL);
reg.CloseKey;
reg.Free;
end;

//枚舉主鍵
procedure GetKeyName(Root:HKEY;StrPath:String;var SL:TStringList);
begin
reg:=Tregistry.Create;
reg.RootKey:=Root;
if reg.OpenKey(StrPath,False) then Reg.GetKeyNames(SL);
Reg.CloseKey;
reg.Free;
end;

//刪除不合法的記錄
procedure Delreject(Root:HKEY;StrPath:String;n:integer);
var Temp,Sub:TStringList;
    i,t:integer;
begin
 Temp:=TStringList.Create;
 Sub:=TStringList.Create;
 Getkeyname(Root,StrPath,Sub);
 if Sub.Count<>0 then begin
   for i:=0 to sub.Count-1 do begin

    if readvalue(Root,StrPath+'\'+Sub[i],'區域')='abcdefghijklmnopqrstuvwxyz1234567890' then delvalue(Root,StrPath+'\'+Sub[i],'區域');
    getvaluename(Root,StrPath+'\'+Sub[i],Temp);
    for t:=0 to Temp.Count-1 do begin
     if readvalue(Root,StrPath+'\'+Sub[i],Temp[t])='' then Delvalue(Root,StrPath+'\'+Sub[i],Temp[t]);
    end;

    Temp.Clear;
    getvaluename(Root,StrPath+'\'+Sub[i],Temp);
    if Temp.Count<n then Delsub(Root,StrPath,Sub[i]);
    Temp.Clear;
   end;
 end;
 Temp.Free;
 Sub.Free;
End;

//刪除重復的記錄
procedure Delrepeat(Root:HKEY;StrPath:String);
var Temp,Sub,Bj1,Bj2:TStringList;
    i,j,t:integer;
begin
 Temp:=TStringList.Create;
 Sub:=TStringList.Create;
 Bj1:=TStringList.Create;
 Bj2:=TStringList.Create;

 Getkeyname(Root,StrPath,Sub);
 if sub.Count>=2 then begin
   for i:=0 to sub.Count-2 do begin
    getvaluename(Root,StrPath+'\'+sub[i],Temp);
    for t:=0 to Temp.Count-1 do begin
     Bj1.Add(ReadValue(Root,StrPath+'\'+sub[i],Temp[t]));
    end;
    Temp.Clear;
    for j:=i+1 to sub.Count-1 do begin
     getvaluename(Root,StrPath+'\'+sub[j],Temp);
     for t:=0 to Temp.Count-1 do begin
      Bj2.Add(ReadValue(Root,StrPath+'\'+sub[j],Temp[t]));
     end;
     if Bj1.Text=Bj2.Text then Delsub(Root,StrPath,sub[j]);
     Temp.Clear;
     bj2.Clear;
    end;
    bj1.Clear;
   end;
 end;
Temp.Free;Sub.Free;bj1.Free;bj2.Free;
End;

//取得計算機的名字
function myGetComputerName:String;
var pcComputer:PChar;
    dwCSize:DWORD;
begin
 dwCSize:=MAX_COMPUTERNAME_LENGTH+1;
 GetMem(pcComputer,dwCSize);
 try
  if GetComputerName(pcComputer,dwCSize) then Result:=pcComputer;
 finally
  FreeMem(pcComputer);
 end;
end;

//獲取Windows目錄
function GetWP:string;
var Buf:array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(Buf,MAX_PATH);
Result:=Buf;
if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;

//獲取Windowssystem目錄
function GetWSP:String;
var Buf:array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf,MAX_PATH);
Result:=Buf;
if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;


//獲取服務器名稱
function GetServerName(Logo:String;Y:integer):String;
begin
if (Logo='傳 奇 一 區') or (Logo='傳奇九區(一區轉檔)') then begin
 if (y>141) and (y<183) then result:='雷霆(上海)' else
 if (y>183) and (y<225) then result:='光芒(上海)' else
 if (y>225) and (y<267) then result:='烈焰(上海)' else
 if (y>267) and (y<309) then result:='疾風(北京)' else
 if (y>309) and (y<351) then result:='新浪(北京)' else
 if (y>351) and (y<393) then result:='流云(廣州)' else
 if (y>393) and (y<435) then result:='聯通(南京)' else
 if (y>435) and (y<477) then result:='蜀山(成都)' else result:='未知';
end
else
if (Logo='傳 奇 二 區') or (Logo='傳奇十區(二區轉檔)') then begin
 if (y>141) and (y<183) then result:='雷霆(上海)' else
 if (y>183) and (y<225) then result:='光芒(上海)' else
 if (y>225) and (y<267) then result:='烈焰(上海)' else
 if (y>267) and (y<309) then result:='雷霆二(上海)' else
 if (y>309) and (y<351) then result:='渝州(重慶)' else
 if (y>351) and (y<393) then result:='峨嵋(成都)' else
 if (y>393) and (y<435) then result:='海鼎(新浪)' else
 if (y>435) and (y<477) then result:='網通(上海)' else result:='未知';
end
else
if (Logo='傳 奇 三 區') or (Logo='傳奇八區(三區轉檔)') or (Logo='英雄之門(三區轉檔)') then begin
 if (y>141) and (y<183) then result:='飛鴻(廣東)' else
 if (y>183) and (y<225) then result:='新月(流云)' else
 if (y>225) and (y<267) then result:='雄獅(新浪)' else
 if (y>267) and (y<309) then result:='天府(成都)' else
 if (y>309) and (y<351) then result:='天堂(杭州)' else
 if (y>351) and (y<393) then result:='雷霆二(上海)' else
 if (y>393) and (y<435) then result:='光芒二(上海)' else
 if (y>435) and (y<477) then result:='烈焰二(上海)' else result:='未知';
end
else
if (Logo='天空·傳奇(四區)') or (Logo='王者大陸(四區轉檔)') then begin
 if (y>141) and (y<183) then result:='歸谷(上海)' else
 if (y>183) and (y<225) then result:='天涯(上海)' else
 if (y>225) and (y<267) then result:='清風(上海)' else
 if (y>267) and (y<309) then result:='落霞(上海)' else
 if (y>309) and (y<351) then result:='歸谷二(上海)' else
 if (y>351) and (y<393) then result:='天涯二(上海)' else
 if (y>393) and (y<435) then result:='清風二(上海)' else
 if (y>435) and (y<477) then result:='落霞二(上海)' else result:='未知';
end
else
if (Logo='傳 奇 五 區') or (Logo='傳奇四十區(五區轉檔)') then begin
 if (y>141) and (y<183) then result:='浩然(上海)' else
 if (y>183) and (y<225) then result:='天地(上海)' else
 if (y>225) and (y<267) then result:='正氣(上海)' else
 if (y>267) and (y<309) then result:='長存(上海)' else
 if (y>309) and (y<351) then result:='浩然二(上海)' else
 if (y>351) and (y<393) then result:='天地二(上海)' else
 if (y>393) and (y<435) then result:='正氣二(上海)' else
 if (y>435) and (y<477) then result:='長存二(上海)' else result:='未知';
end
else
if Logo='傳 奇 六 區' then begin
 if (y>141) and (y<183) then result:='三峽(聯通)' else
 if (y>183) and (y<225) then result:='青城(成都)' else
 if (y>225) and (y<267) then result:='滇池(昆明)' else
 if (y>267) and (y<309) then result:='長白(東北)' else
 if (y>309) and (y<351) then result:='三峽二(聯通)' else
 if (y>351) and (y<393) then result:='青城二(成都)' else
 if (y>393) and (y<435) then result:='滇池二(昆明)' else
 if (y>435) and (y<477) then result:='長白二(東北)' else result:='未知';
end
else
if Logo='傳 奇 七 區' then begin
 if (y>141) and (y<183) then result:='奇跡(上海)' else
 if (y>183) and (y<225) then result:='長寬(武漢)' else
 if (y>225) and (y<267) then result:='流星(上海)' else
 if (y>267) and (y<309) then result:='皓月(上海)' else
 if (y>309) and (y<351) then result:='奇跡二(上海)' else
 if (y>351) and (y<393) then result:='皓月二(上海)' else
 if (y>393) and (y<435) then result:='長寬二(上海)' else
 if (y>435) and (y<477) then result:='流星二(上海)' else result:='未知';
end
else
if Logo='經典之國(11區)' then begin
 if (y>141) and (y<183) then result:='西游(上海)' else
 if (y>183) and (y<225) then result:='三國(上海)' else
 if (y>225) and (y<267) then result:='水滸(上海)' else
 if (y>267) and (y<309) then result:='紅樓(上海)' else
 if (y>309) and (y<351) then result:='封神(上海)' else
 if (y>351) and (y<393) then result:='聊齋(上海)' else
 if (y>393) and (y<435) then result:='春秋(上海)' else
 if (y>435) and (y<477) then result:='戰國(上海)' else result:='未知';
end
else
if Logo='西部圣域(12區)' then begin
 if (y>141) and (y<183) then result:='華山(敦煌轉檔)' else
 if (y>183) and (y<225) then result:='雪域(九寨轉檔)' else
 if (y>225) and (y<267) then result:='敦煌(天府)' else
 if (y>267) and (y<309) then result:='九寨(天府)' else
 if (y>309) and (y<351) then result:='天山(天府)' else
 if (y>351) and (y<393) then result:='版納(天府)' else
 if (y>393) and (y<435) then result:='劍門(天府)' else
 if (y>435) and (y<477) then result:='嘉峪(天府)' else result:='未知';
end
else
if Logo='移動天下(15區)' then begin
 if (y>246) and (y<288) then result:='華夏(移動)' else
 if (y>288) and (y<330) then result:='神州(移動)' else
 if (y>330) and (y<372) then result:='四海(移動)' else result:='未知';
end
else
if Logo='俠骨丹心(16區)' then begin
 if (y>267) and (y<309) then result:='楚天(聯通)' else
 if (y>309) and (y<351) then result:='秦嶺(聯通)' else result:='未知';
end
else
if Logo='風云專區(17區)' then begin
 if (y>225) and (y<267) then result:='奔騰(光通)' else
 if (y>267) and (y<309) then result:='海清(光通)' else
 if (y>309) and (y<351) then result:='天河(NEW!光通)' else
 if (y>351) and (y<393) then result:='白云山(NEW!光通)' else result:='未知';
end
else
if Logo='赤月·廣電星空(18區)' then begin
 if (y>225) and (y<267) then result:='辟地(新版)' else
 if (y>267) and (y<309) then result:='開天(新版)' else
 if (y>309) and (y<351) then result:='霸業(新版)' else
 if (y>351) and (y<393) then result:='輝煌(新版)' else result:='未知';
end
else
if Logo='西部圣域II(19區)' then begin
 if (y>225) and (y<267) then result:='昆侖(天府)' else
 if (y>267) and (y<309) then result:='龍門(天府)' else
 if (y>309) and (y<351) then result:='蒼山(天府)' else
 if (y>351) and (y<393) then result:='古城(天府)' else result:='未知';
end
else
if Logo='光明世界(20區)' then begin
 if (y>225) and (y<267) then result:='晴空' else

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
午夜视频在线观看一区二区| 不卡的av中国片| av一区二区三区四区| 久久无码av三级| 亚洲精品免费电影| 久久机这里只有精品| 91高清在线观看| 国产亚洲精品中文字幕| 日韩黄色免费网站| 色成人在线视频| 亚洲视频在线一区| 国产福利91精品一区二区三区| 欧美精品在线观看播放| 亚洲欧洲日产国产综合网| 国产精品一区二区三区网站| 91精品国产欧美一区二区| 亚洲综合色区另类av| 99久久精品免费精品国产| 久久综合网色—综合色88| 日本中文字幕不卡| 欧美日产国产精品| 亚洲一区二区三区四区不卡| 色呦呦国产精品| 亚洲欧洲性图库| 99久久综合狠狠综合久久| 国产亚洲美州欧州综合国| 国内不卡的二区三区中文字幕| 日韩亚洲欧美一区二区三区| 天天av天天翘天天综合网| 欧美性猛交xxxxxx富婆| 亚洲欧美电影一区二区| 日本电影欧美片| 日韩久久一区二区| 色综合久久88色综合天天6| 国产精品久久久久久久午夜片| 国产福利视频一区二区三区| 久久久噜噜噜久久人人看 | 午夜精品一区二区三区电影天堂| 91黄色小视频| 亚洲国产美国国产综合一区二区| 欧美又粗又大又爽| 首页综合国产亚洲丝袜| 91精品免费观看| 久久精品国产在热久久| 国产日韩v精品一区二区| 成人的网站免费观看| 国产精品第13页| 精品婷婷伊人一区三区三| 免费成人在线观看| 久久久av毛片精品| 91麻豆国产福利在线观看| 亚洲中国最大av网站| 欧美一卡二卡三卡四卡| 国产一区二区三区久久久| 中文久久乱码一区二区| 色综合天天综合网国产成人综合天 | 欧美性视频一区二区三区| 免费三级欧美电影| 久久久午夜精品理论片中文字幕| 成人性视频网站| 亚洲美女在线一区| 欧美日韩激情一区二区三区| 久久精品国产精品青草| 18涩涩午夜精品.www| 欧美二区三区91| 国产成人午夜99999| 一区二区在线观看不卡| 日韩视频国产视频| 成人福利在线看| 偷拍一区二区三区| 国产精品久久久久久久午夜片| 欧美日韩国产高清一区二区| 国产在线日韩欧美| 亚洲午夜日本在线观看| 2019国产精品| 欧美色视频一区| 床上的激情91.| 免费高清在线一区| 亚洲激情av在线| 国产拍揄自揄精品视频麻豆 | 丁香另类激情小说| 美国毛片一区二区三区| 亚洲一区二区在线播放相泽| 国产拍欧美日韩视频二区 | 欧美专区在线观看一区| 国产精品一区二区果冻传媒| 日韩在线一二三区| 亚洲视频免费观看| 中文字幕乱码日本亚洲一区二区| 欧美挠脚心视频网站| 99久久99久久综合| 国产精品自在在线| 久久se这里有精品| 日本大胆欧美人术艺术动态| 亚洲电影一区二区| 亚洲精品午夜久久久| 国产精品久久夜| 久久久久久久性| 日韩精品一区二区三区四区| 欧美日韩一卡二卡三卡 | 制服.丝袜.亚洲.另类.中文| 日本韩国精品一区二区在线观看| 福利电影一区二区| 国产福利精品导航| 国产乱对白刺激视频不卡| 日韩经典一区二区| 天堂午夜影视日韩欧美一区二区| 亚洲免费在线观看| 最近日韩中文字幕| 亚洲天天做日日做天天谢日日欢| 国产精品天天看| 中文字幕不卡在线观看| 亚洲国产电影在线观看| 欧美国产精品中文字幕| 中文字幕欧美区| 国产精品剧情在线亚洲| 亚洲日本在线天堂| 亚洲精品一卡二卡| 亚洲一区二区三区中文字幕| 亚洲国产日韩在线一区模特| 亚洲国产wwwccc36天堂| 婷婷综合五月天| 免费看欧美女人艹b| 精品一区二区日韩| 国产成人自拍网| 欧美色视频一区| 欧美日韩成人综合天天影院| 91精品国产综合久久精品app| 欧美老女人第四色| 日韩午夜电影av| 国产日韩欧美a| 亚洲女与黑人做爰| 天天操天天色综合| 国产精品中文字幕日韩精品| 粉嫩高潮美女一区二区三区| 波多野结衣在线aⅴ中文字幕不卡| 成人av综合在线| 欧美伊人精品成人久久综合97| 欧美高清www午色夜在线视频| 欧美成va人片在线观看| 中文字幕免费不卡在线| 亚洲成人7777| 国产在线播放一区三区四| 成人av在线看| 欧美一区二区黄色| 国产精品久久久久久久久免费相片| 亚洲卡通欧美制服中文| 蜜臀av性久久久久蜜臀aⅴ四虎 | 91麻豆.com| 欧美变态凌虐bdsm| 国产精品九色蝌蚪自拍| 亚洲成a人片在线观看中文| 国产精品一区二区久久不卡 | caoporm超碰国产精品| 欧美精品日韩综合在线| 国产嫩草影院久久久久| 午夜一区二区三区视频| 国产成人av影院| 777亚洲妇女| 亚洲欧洲精品天堂一级| 日韩高清在线不卡| 成人av在线看| 2023国产精品自拍| 亚洲国产日韩一区二区| 国产 欧美在线| 日韩一区二区在线看| 亚洲欧美激情小说另类| 国产乱码精品一区二区三 | 久久久www成人免费无遮挡大片| 中文字幕永久在线不卡| 精品一区二区三区久久| 欧美日本一区二区| 亚洲色图在线播放| 国产成人a级片| 欧美xingq一区二区| 午夜精品久久久久影视| 91免费版pro下载短视频| 久久精品视频一区| 蜜臀av一区二区在线免费观看 | 正在播放一区二区| 一区二区三区精品在线观看| 国产剧情一区在线| 精品精品国产高清一毛片一天堂| 亚洲愉拍自拍另类高清精品| av中文一区二区三区| 国产农村妇女精品| 国产成人日日夜夜| 久久久久久久电影| 国产一区二区网址| 久久综合狠狠综合久久综合88| 天天综合天天做天天综合| 欧美视频在线一区| 亚洲理论在线观看| 91免费版在线| 亚洲一区二区在线观看视频 | 欧美精品一区二区三区很污很色的| 日韩中文字幕91| 91精品国产综合久久精品麻豆| 亚洲成a人片综合在线| 在线播放91灌醉迷j高跟美女|