📄 unit1.pas
字号:
if UpperCase(TheFileExt)='.RAR' then TheListItems.ImageIndex:=16;
if UpperCase(TheFileExt)='.DOC' then TheListItems.ImageIndex:=17;
if UpperCase(TheFileExt)='.XLS' then TheListItems.ImageIndex:=18;
if UpperCase(TheFileExt)='.PPT' then TheListItems.ImageIndex:=19;
if UpperCase(TheFileExt)='.JPG' then TheListItems.ImageIndex:=20;
if UpperCase(TheFileExt)='.JPEG' then TheListItems.ImageIndex:=21;
if UpperCase(TheFileExt)='.RLE' then TheListItems.ImageIndex:=22;
if UpperCase(TheFileExt)='.PSD' then TheListItems.ImageIndex:=23;
if UpperCase(TheFileExt)='.PDD' then TheListItems.ImageIndex:=23;
if UpperCase(TheFileExt)='.FON' then TheListItems.ImageIndex:=24;
if UpperCase(TheFileExt)='.TTF' then TheListItems.ImageIndex:=24;
if UpperCase(TheFileExt)='.TTC' then TheListItems.ImageIndex:=24;
if UpperCase(TheFileExt)='.RA' then TheListItems.ImageIndex:=25;
if UpperCase(TheFileExt)='.RM' then TheListItems.ImageIndex:=25;
if UpperCase(TheFileExt)='.AVI' then TheListItems.ImageIndex:=26;
if UpperCase(TheFileExt)='.WAV' then TheListItems.ImageIndex:=27;
if UpperCase(TheFileExt)='.MID' then TheListItems.ImageIndex:=27;
if UpperCase(TheFileExt)='.RMI' then TheListItems.ImageIndex:=27;
if UpperCase(TheFileExt)='.MIDI' then TheListItems.ImageIndex:=27;
if UpperCase(TheFileExt)='.MIDI' then TheListItems.ImageIndex:=27;
if UpperCase(TheFileExt)='.BMP' then TheListItems.ImageIndex:=28;
if UpperCase(TheFileExt)='.GIF' then TheListItems.ImageIndex:=29;
if UpperCase(TheFileExt)='.CHM' then TheListItems.ImageIndex:=30;
if UpperCase(TheFileExt)='.HLP' then TheListItems.ImageIndex:=31;
if UpperCase(TheFileExt)='.SWF' then TheListItems.ImageIndex:=32;
if UpperCase(TheFileExt)='.XML' then TheListItems.ImageIndex:=33;
if UpperCase(TheFileExt)='.HTML' then TheListItems.ImageIndex:=34;
if UpperCase(TheFileExt)='.MHT' then TheListItems.ImageIndex:=34;
if UpperCase(TheFileExt)='.LOG' then TheListItems.ImageIndex:=35;
if UpperCase(TheFileExt)='.EML' then TheListItems.ImageIndex:=36;
if UpperCase(TheFileExt)='.SCR' then TheListItems.ImageIndex:=37;
if UpperCase(TheFileExt)='.HTM' then TheListItems.ImageIndex:=38;
if UpperCase(TheFileExt)='.MP3' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.MP2' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.MP1' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.CDA' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.SND' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.AU' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.AIF' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.AIFC' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.AIFF' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.WMA' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.ASX' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.WAX' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.W3U' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.WVX' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.WMX' then TheListItems.ImageIndex:=39;
if UpperCase(TheFileExt)='.MPEG' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.MPG' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.MLV' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.MPA' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.MPE' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.WMV' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.MPV' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.ASF' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.W1V' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.KPL' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.MOV' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.QT' then TheListItems.ImageIndex:=40;
if UpperCase(TheFileExt)='.ART' then TheListItems.ImageIndex:=41;
if UpperCase(TheFileExt)='.DJV' then TheListItems.ImageIndex:=42;
if UpperCase(TheFileExt)='.EMF' then TheListItems.ImageIndex:=43;
if UpperCase(TheFileExt)='.EPS' then TheListItems.ImageIndex:=44;
if UpperCase(TheFileExt)='.FPX' then TheListItems.ImageIndex:=45;
if UpperCase(TheFileExt)='.ICN' then TheListItems.ImageIndex:=46;
if UpperCase(TheFileExt)='.ICO' then TheListItems.ImageIndex:=47;
if UpperCase(TheFileExt)='.IFF' then TheListItems.ImageIndex:=48;
if UpperCase(TheFileExt)='.KDC' then TheListItems.ImageIndex:=49;
if UpperCase(TheFileExt)='.LDF' then TheListItems.ImageIndex:=50;
if UpperCase(TheFileExt)='.LWF' then TheListItems.ImageIndex:=51;
if UpperCase(TheFileExt)='.MAG' then TheListItems.ImageIndex:=52;
if UpperCase(TheFileExt)='.PBM' then TheListItems.ImageIndex:=53;
if UpperCase(TheFileExt)='.PCD' then TheListItems.ImageIndex:=54;
if UpperCase(TheFileExt)='.PCX' then TheListItems.ImageIndex:=55;
if UpperCase(TheFileExt)='.PDF' then TheListItems.ImageIndex:=56;
if UpperCase(TheFileExt)='.PGM' then TheListItems.ImageIndex:=57;
if UpperCase(TheFileExt)='.PIC' then TheListItems.ImageIndex:=58;
if UpperCase(TheFileExt)='.PICT' then TheListItems.ImageIndex:=59;
if UpperCase(TheFileExt)='.PIX' then TheListItems.ImageIndex:=60;
if UpperCase(TheFileExt)='.PNG' then TheListItems.ImageIndex:=61;
if UpperCase(TheFileExt)='.PPM' then TheListItems.ImageIndex:=62;
if UpperCase(TheFileExt)='.PS' then TheListItems.ImageIndex:=63;
if UpperCase(TheFileExt)='.PSP' then TheListItems.ImageIndex:=64;
if UpperCase(TheFileExt)='.RAS' then TheListItems.ImageIndex:=65;
if UpperCase(TheFileExt)='.RS' then TheListItems.ImageIndex:=66;
if UpperCase(TheFileExt)='.SGI' then TheListItems.ImageIndex:=67;
if UpperCase(TheFileExt)='.TGA' then TheListItems.ImageIndex:=68;
if UpperCase(TheFileExt)='.TIF' then TheListItems.ImageIndex:=69;
if UpperCase(TheFileExt)='.WMF' then TheListItems.ImageIndex:=70;
if UpperCase(TheFileExt)='.XBM' then TheListItems.ImageIndex:=71;
if UpperCase(TheFileExt)='.XPM' then TheListItems.ImageIndex:=72;
//=============================================设置显示分类===
TheListItems.SubItems.add(FList[i+3]);
end;
i:=i+4;
until i>FList.Count-1;
end;
GetFStream.Free;
FList.Free;
end;
Procedure TForm1.ShowMyDrv;//显示自己的磁盘信息；
var
getDrives:TStringlist;
begin
getDrives:=TStringList.Create;
getAllDisk(getDrives);
ShowDrives(TreeView1,getDrives);
getDrives.Free;
end;
Procedure TForm1.ShowDrives(ShowVL:TTreeView;DrvList:TStringList);
var
i :integer;
iNode :TTreeNode;
TempStr :String;
begin
ShowVL.Items[0].DeleteChildren;
for i:=0 to DrvList.Count-1 do
begin
iNode:=ShowVL.Items.AddChild(ShowVL.Items[0],DrvList[i]);
TempStr:=StrUtils.LeftStr(DrvList[i],5);
Delete(TempStr,1,1);
if TempStr=':(软盘' then
begin
iNode.ImageIndex:=2;
iNode.SelectedIndex:=2;
end;
if TempStr=':(硬盘' then
begin
iNode.ImageIndex:=3;
iNode.SelectedIndex:=3;
end;
if TempStr=':(网络' then
begin
iNode.ImageIndex:=6;
iNode.SelectedIndex:=6;
end;
if TempStr=':(光盘' then
begin
iNode.ImageIndex:=4;
iNode.SelectedIndex:=4;
end;
if TempStr=':(虚拟' then
begin
iNode.ImageIndex:=5;
iNode.SelectedIndex:=5;
end;
end;
end;
Procedure TForm1.ClearAllInfo(FromData:TClientDataSet);
Begin
FromData.Open;
if FromData.RecordCount=0 then
begin
FromData.Close;
exit;
end;
FromData.Edit;
Repeat
FromData.First;
FromData.Delete;
until FromData.RecordCount=0;
FromData.Close;
TreeView2.Items.Clear;
end;
Procedure TForm1.DeleteUser(ShowUI:TTreeView;FromData:TClientDataSet);
begin
if ShowUI.Selected=nil then exit;
if ShowUI.Selected.ImageIndex>6 then
if ShowUI.Selected.Parent=nil then
begin
FromData.Open;
FromData.Edit;
FromData.First;
repeat
if (ShowUI.Selected.Text=FromData.FieldByName('MyName').AsString) then
begin
FromData.Delete;
ShowUI.Selected.Delete;
end;
FromData.Next;
until FromData.Eof;
FromData.Close;
exit;
end;
if ShowUI.Selected.ImageIndex>6 then
if ShowUI.Selected.Parent<>nil then
begin
FromData.Open;
FromData.Edit;
FromData.First;
repeat
if ((ShowUI.Selected.Text=FromData.FieldByName('MyName').AsString) and
(ShowUI.Selected.Parent.Text=
FromData.FieldByName('ParentName').AsString)) then
begin
FromData.Delete;
ShowUI.Selected.Delete;
end;
FromData.Next;
until FromData.Eof;
FromData.Close;
end;
end;
Procedure TForm1.DeleteGroup(ShowUI:TTreeView;FromData:TClientDataSet);
begin
if ShowUI.Items.Count=0 then exit;
if ShowUI.Selected=nil then exit;
if ((ShowUI.Selected.ImageIndex<7) and
(ShowUI.Selected.HasChildren=False)) then
begin
FromData.Open;
if FromData.RecordCount=0 then
begin
FromData.Close;
exit;
end;
FromData.Edit;
FromData.First;
repeat
if (ShowUI.Selected.Text=FromData.FieldByName('MyName').AsString) then
begin
if (ShowUI.Selected.Parent=nil) then
begin
FromData.Delete;
ShowUI.Selected.Delete;
FromData.Close;
exit;
end;
if ShowUI.Selected.Parent<>nil then
if (ShowUI.Selected.Parent.Text=
FromData.FieldByName('ParentName').AsString) then
begin
FromData.Delete;
ShowUI.Selected.Delete;
FromData.Close;
exit;
end;
end;
FromData.Next;
until FromData.Eof;
FromData.Close;
end;
end;
Procedure TForm1.SetUserInfo(ShowUI:TTreeView;FromData:TClientDataSet);
//填写用户组的视图的树状信息
var
ParentStr :String;
AddNode,AddND :TTreeNode;
I :Integer;
ThePath :String;
TheDataFile :string;
begin
//分析目录，提取文件
ThePath:=ExtractFilePath(Application.ExeName);
if ThePath[Length(ThePath)]='\' then
TheDataFile:=ThePath+'data\UserInfo.cds' else
TheDataFile:=ThePath+'\data\UserInfo.cds';
TheUserInfoFileName:=TheDataFile;//全程记录文件名便于存储
//--------------------------------------------------------------------
if Not FileExists(TheDataFile) then //如果不存在创建目录与文件
begin
if Not DirectoryExists(ExtractFilePath(TheDataFile)) Then
begin
if ForceDirectories(ExtractFilePath(TheDataFile)) then
begin
FromData.CreateDataSet;
try
FromData.SaveToFile(TheDataFile);
FromData.LoadFromFile(TheDataFile);
except
Application.MessageBox('=====临时文件在本地创建失败！=====',
'初始化信息：',MB_OK+MB_ICONSTOP);
exit;
end;
end;
end else // 如果目录存在
begin
FromData.CreateDataSet;
try
FromData.SaveToFile(TheDataFile);
FromData.LoadFromFile(TheDataFile);
except
Application.MessageBox('=====临时文件在本地创建失败！=====',
'初始化信息：',MB_OK+MB_ICONSTOP);
exit;
end;
end;
end else FromData.LoadFromFile(TheDataFile); //如果存在则加载
//--------------------------------------------------------------
FromData.Open;
if FromData.RecordCount=0 then
begin
FromData.Close;
exit;
end;
ShowUI.Items.Clear;
FromData.First;
Repeat
ParentStr:=FromData.FieldByName('ParentName').AsString;
if ParentStr='无' then
begin
AddNode:=ShowUI.Items.Add(nil,FromData.FieldByName('MyName').AsString);
AddNode.ImageIndex:=FromData.FieldByName('ImageID').AsInteger;
AddNode.SelectedIndex:=FromData.FieldByName('SelectImageID').AsInteger;
AddNode.StateIndex:=FromData.FieldByName('StateImageID').AsInteger;
end else
if ParentStr<>'' then
begin
For I:=0 to ShowUI.Items.Count-1 do
begin
if ShowUI.Items[I].Text=
FromData.FieldByName('ParentName').AsString then
begin
AddNode:=ShowUI.Items.AddChild(ShowUI.Items[I],
FromData.FieldByName('MyName').AsString);
AddNode.ImageIndex:=FromData.FieldByName('ImageID').AsInteger;
AddNode.SelectedIndex:=FromData.FieldByName('SelectImageID').AsInteger;
AddNode.StateIndex:=FromData.FieldByName('StateImageID').AsInteger;
if AddNode.ImageIndex=7 then
begin
AddND:=ShowUI.Items.AddChild(AddNode,
FromData.FieldByName('HostName').AsString);
AddND.ImageIndex:=10;
AddND.SelectedIndex:=10;
AddND.StateIndex:=10;
AddND:=ShowUI.Items.AddChild(AddNode,
FromData.FieldByName('Port').AsString);
AddND.ImageIndex:=11;
AddND.SelectedIndex:=11;
AddND.StateIndex:=11;
end;
end;
end;
end;
FromData.Next;
until FromData.Eof=True;
FromData.Close;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Panel4.Width=1 then
Panel4.Width:=200 else Panel4.Width:=1;
end;
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Panel4.Width=0 then
Panel4.Width:=250;
end;
procedure TForm1.TabSheet2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=True;
end;
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=True;
end;
procedure TForm1.ToolButton15Click(Sender: TObject);
begin
if Panel6.Height>15 then
if PageControl1.ActivePage<>TabSheet7 then
begin
PageControl1.ActivePage:=TabSheet7;
exit;
end;
if (Panel6.Height<10) then
Panel6.Height:=SHeight else
Panel6.Height:=0;
PageControl1.ActivePage:=TabSheet7;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -