📄 main32.pas

📁 wbs43open-src.zip 数字隐藏工具
💻 PAS
📖 第 1 页 / 共 5 页
字号:
          S2.Visible:=False;
          WStep:=1;
          ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
          ws_x1.Caption:=IntToStr(WStep);
          ws_x2.Caption:=IntToStr(WStep);
          wbz.Caption:='&Exit';
        End;
    3:  Begin
          S3.Visible:=False;
          WStep:=2;
          ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
          ws_x1.Caption:=IntToStr(WStep);
          ws_x2.Caption:=IntToStr(WStep);
          If Codec Then Bin:=Edit1.Text Else Min:=Edit1.Text;
        End;
    4:  Begin
          OpenDialog1.Title:=ml.GetCodeString('main32',33); // code033
          OpenDialog1.Filter:=ml.GetCodeString('main32',34); // code34
          Button4.Visible:=False;
          If Codec Then Begin
            Memo3a.Visible:=True;
            {<changes 2.1>}
{$IFNDEF CLX}
            Outline1.Visible:=False;
{$ELSE}
            ListBox2.Visible:=False;
{$ENDIF}
            Label10.Visible:=False;
            Bin:=Edit1.Text;
            Edit1.Text:=Din;
            WStep:=3;
            ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
            ws_x1.Caption:=IntToStr(WStep);
            ws_x2.Caption:=IntToStr(WStep);
          End
          Else Begin
            S4pwd.Visible:=False;
            S4set.Visible:=False;
            Memo3d.Visible:=True;
            Label10.Visible:=True;
            Edit1.Text:=Min;
            FileType:=UpperCase(Copy(ExtractFilePath(Min),2,3));
{$IFNDEF CLX}
            Outline1.Visible:=True;
            Outline1.Enabled:=True;
            Outline1.Color:=clWhite;
            Outline1.Items[2].Expanded:=False;

            If FileType='BMP' Then Begin
              Outline1.SelectedItem:=1;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='ASC' Then Begin
              Outline1.SelectedItem:=2;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='TXT' Then Begin
              Outline1.SelectedItem:=3;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='PDF' Then Begin
              Outline1.SelectedItem:=4;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
{$ELSE}
            ListBox2.Visible:=True;
            ListBox2.Enabled:=True;
            ListBox2.Color:=clWhite;

            If FileType='BMP' Then Begin
              ListBox2.ItemIndex:=1;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='ASC' Then Begin
              ListBox2.ItemIndex:=2;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='TXT' Then Begin
              ListBox2.ItemIndex:=3;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='PDF' Then Begin
              ListBox2.ItemIndex:=4;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
{$ENDIF}
            {</changes 2.1>}
            WStep:=3;
            ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
            ws_x1.Caption:=IntToStr(WStep);
            ws_x2.Caption:=IntToStr(WStep);
         End;
        End;
    5:  Begin
          If Codec Then Begin
            Memo3a.Visible:=False;
            {<changes 2.1>}
            Label10.Visible:=True;
{$IFNDEF CLX}
            Outline1.Visible:=True;
            Outline1.Enabled:=True;
            Outline1.Color:=clWhite;
            Outline1.Items[2].Expanded:=True;
{$ELSE}
            ListBox2.Visible:=True;
            ListBox2.Enabled:=True;
            ListBox2.Color:=clWhite;
{$ENDIF}
            Button4.Visible:=True;
            Edit1.Text:=Bin;
            OpenDialog1.Title:=ml.GetCodeString('main32',20);{'Load carrier file'; }   // code020
            OpenDialog1.Filter:=ml.GetCodeString('main32',21);
            FileType:=UpperCase(Copy(ExtractFilePath(Bin),2,3));
{$IFNDEF CLX}
            If FileType='BMP' Then Begin
              Outline1.SelectedItem:=1;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='ASC' Then Begin
              Outline1.SelectedItem:=2;
              Outline1.Enabled:=True;
              Outline1.Color:=clWhite;
            End;
            If FileType='TXT' Then Begin
              Outline1.SelectedItem:=3;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='PDF' Then Begin
              Outline1.SelectedItem:=4;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
{$ELSE}
            If FileType='BMP' Then Begin
              ListBox2.ItemIndex:=1;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='ASC' Then Begin
              ListBox2.ItemIndex:=2;
              ListBox2.Enabled:=True;
              ListBox2.Color:=clWhite;
            End;
            If FileType='TXT' Then Begin
              ListBox2.ItemIndex:=3;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='PDF' Then Begin
              ListBox2.ItemIndex:=4;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;

{$ENDIF}
            S4set.Visible:=False;
            //S4.Visible:=False;
            //TabSet1.TabIndex:=0;
            WStep:=4;
            ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
            ws_x1.Caption:=IntToStr(WStep);
            ws_x2.Caption:=IntToStr(WStep);
         End
          Else Begin
            S5.Visible:=False;
            WStep:=4;
            ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
            ws_x1.Caption:=IntToStr(WStep);
            ws_x2.Caption:=IntToStr(WStep);
         End;
        End;
    6:  Begin
          If Codec Then Begin
            S5.Visible:=False;
            WStep:=5;
            ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
            ws_x1.Caption:=IntToStr(WStep);
            ws_x2.Caption:=IntToStr(WStep);
         End
          Else Begin
            S6.Visible:=False;
            Memo5d.Visible:=True;
            WStep:=5;
            ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
            ws_x1.Caption:=IntToStr(WStep);
            ws_x2.Caption:=IntToStr(WStep);
         End;
        End;
    7:  Begin
          S6.Visible:=False;
          Memo5d.Visible:=False;
          WStep:=6;
          ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
          ws_x1.Caption:=IntToStr(WStep);
          ws_x2.Caption:=IntToStr(WStep);
        End;
    End;
end;

procedure TForm14.wbwClick(Sender: TObject);
Var
  HStr:      String;
  Pfad:      String;
  FName:     String;
  i:         Byte;
  len:       Byte;
  CurPath:   String;
  XFile:     File;
  weiter:    Boolean;
  usable:    String;
  space:     Longint;
  ic:        Integer;
begin
  Case WStep Of
    1:  Begin
          S2.Visible:=True;
          WStep:=2;
          ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
          ws_x1.Caption:=IntToStr(WStep);
          ws_x2.Caption:=IntToStr(WStep);
          wbz.Caption:=ml.GetCodeString('main32',22);{'<< &Back'; }       // code022
          If Codec Then RadioButton1.Checked:=True
          Else RadioButton2.Checked:=True;
        End;
    2:  Begin
          {<changes 2.1>}
          S3.Visible:=True;
          WStep:=3;
          ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
          ws_x1.Caption:=IntToStr(WStep);
          ws_x2.Caption:=IntToStr(WStep);
{$IFNDEF CLX}
          Outline1.Visible:=True;
{$ELSE}
          ListBox2.Visible:=True;
{$ENDIF}
          Button4.Visible:=False;
          If Codec Then Begin
            Memo3a.Visible:=True;
            Memo3d.Visible:=False;
{$IFNDEF CLX}
            Outline1.Visible:=False;
            Outline1.Enabled:=False;
{$ELSE}
            ListBox2.Visible:=False;
            ListBox2.Enabled:=False;
{$ENDIF}
            Label10.Visible:=False;
            OpenDialog1.Title:=ml.GetCodeString('main32',33); // code033
            OpenDialog1.Filter:=ml.GetCodeString('main32',34); // code34
            Edit1.Text:=Din;
            Button3.Visible:=True;
          End
          Else Begin
            Label10.Visible:=True;
{$IFNDEF CLX}
            Outline1.Visible:=True;
            Outline1.Enabled:=True;
            Outline1.Color:=clWhite;
            Outline1.Items[2].Expanded:=False;
{$ELSE}
            ListBox2.Visible:=True;
            ListBox2.Enabled:=True;
            ListBox2.Color:=clWhite;
{$ENDIF}
            Button4.Visible:=False;
            Memo3d.Visible:=True;
            OpenDialog1.Title:=ml.GetCodeString('main32',23);{'Load carrier file'; }    // code023
            OpenDialog1.Filter:=ml.GetCodeString('main32',24);
                              {'Bitmaps (*.BMP)|*.BMP|Text Files (*.TXT)|*.TXT|'+
                              'HTML Files (*.HTM)|*.HTM|PDF Files (*.PDF)|*.PDF|All Files (*.*)|*.*'; }  // code024
            Edit1.Text:=Min;
            FileType:=UpperCase(Copy(ExtractFilePath(Edit1.Text),2,3));
{$IFNDEF CLX}
            If FileType='BMP' Then Begin
              Outline1.SelectedItem:=1;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='ASC' Then Begin
              Outline1.SelectedItem:=2;
              Outline1.Enabled:=True;
              Outline1.Items[2].Expanded:=True;
              Outline1.Color:=clWhite;
            End;
            If FileType='TXT' Then Begin
              Outline1.SelectedItem:=3;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
            If FileType='PDF' Then Begin
              Outline1.SelectedItem:=4;
              Outline1.Enabled:=False;
              Outline1.Color:=clBtnFace;
            End;
{$ELSE}
            If FileType='BMP' Then Begin
              ListBox2.ItemIndex:=1;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='ASC' Then Begin
              ListBox2.ItemIndex:=2;
              ListBox2.Enabled:=True;
              ListBox2.Color:=clWhite;
            End;
            If FileType='TXT' Then Begin
              ListBox2.ItemIndex:=3;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
            If FileType='PDF' Then Begin
              ListBox2.ItemIndex:=4;
              ListBox2.Enabled:=False;
              ListBox2.Color:=clBtnFace;
            End;
{$ENDIF}
          End;
        End;
     3: Begin
          If Codec Then Begin
            Din:=Edit1.Text;
            If Din='' Then MessageDlg(ml.GetCodeString('main32',43),mtWarning,[mbOK],250)   // code043
            Else Begin
              if not(FileExists(Din)) then MessageDlg(ml.GetCodeString('main32',44),mtError,[mbOK],250)   // code044
              Else Begin
                // seII
                myData.LoadFromFile(Din);
                //
                WStep:=4;
                ws_title.Caption:=WSM[WStep,BoolToInt(Codec)];
                ws_x1.Caption:=IntToStr(WStep);
                ws_x2.Caption:=IntToStr(WStep);
{$IFNDEF CLX}
                Outline1.Visible:=True;
                Outline1.Enabled:=True;
                Outline1.Color:=clWhite;
                Outline1.Items[2].Expanded:=False;
{$ELSE}
                ListBox2.Visible:=True;
                ListBox2.Enabled:=True;
                ListBox2.Color:=clWhite;
{$ENDIF}
                Button4.Visible:=True;
💿 文件大小 536 K
👤 上传用户 zwaheron
📂 所属分类加密解密
🏷️ 相关标签

#open-src #wbs #zip #43
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -