word转图片delphi源代码

原作者: [db:作者] 来自: [db:来源] 收藏邀请

unit paswordtopdf;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Buttons, ExtCtrls, OleCtnrs, PDF, WinSkinData,
    ComCtrls, Jpeg, ImgList, ToolWin;

type
    TFrmwordtopdf = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        TabSheet3: TTabSheet;
        RadioGroup1: TRadioGroup;
        GroupBox3: TGroupBox;
        TrackBar1: TTrackBar;
        Button2: TButton;
        Button3: TButton;
        GBPDF: TGroupBox;
        edtpdffileName: TEdit;
        btnsavepdf: TButton;
        gbSelectWord: TGroupBox;
        edtdocFilename: TEdit;
        btnselword: TButton;
        btnexit: TButton;
        SkinData1: TSkinData;
        btnreg: TButton;
        Button6: TButton;
        TabSheet4: TTabSheet;
        GroupBox6: TGroupBox;
        edtpic: TEdit;
        Button13: TButton;
        GroupBox8: TGroupBox;
        edtpicpdf: TEdit;
        Button15: TButton;
        Panel1: TPanel;
        rgpage: TRadioGroup;
        BitBtn1: TBitBtn;
        btnhelp: TBitBtn;
        BitBtn2: TBitBtn;
        lbltime: TLabel;
        btnWordtoPDF: TBitBtn;
        BitBtn7: TBitBtn;
        BitBtn8: TBitBtn;
        SetWaterMark: TBitBtn;
        Button1: TButton;
        Button4: TButton;
        Button5: TButton;
        ToolBar1: TToolBar;
        ImageList1: TImageList;
        tbWordToPDF: TToolButton;
        tbPPtTOPDF: TToolButton;
        tbPICTOPDF: TToolButton;
        tbSetWaterMak: TToolButton;
        tbAbout: TToolButton;
        tbHelp: TToolButton;
        ToolButton9: TToolButton;
    sbregistered: TToolButton;
        ToolButton11: TToolButton;
        ToolButton12: TToolButton;
        TbBuy: TToolButton;
        Panel2: TPanel;
        StatusBar1: TStatusBar;
        ImageList2: TImageList;
        pnlConvert: TPanel;
        Image1: TImage;
        lblFileName: TLabel;
        lblFileSize: TLabel;
        LbLFileType: TLabel;
        edtUser: TEdit;
        ckbopen: TCheckBox;
    tbMainPage: TSpeedButton;
        SpeedButton2: TSpeedButton;
        Panel4: TPanel;
        GroupBox4: TGroupBox;
        edtpptFilename: TEdit;
        Button8: TButton;
        GroupBox5: TGroupBox;
        edtpptpdf: TEdit;
        Button9: TButton;
        gbpptnum: TGroupBox;
        cbpptnum: TComboBox;
        Panel3: TPanel;
        GBRight: TGroupBox;
        btnConvert: TSpeedButton;
    Panel5: TPanel;
    Image2: TImage;
    Label1: TLabel;
    Panel6: TPanel;
    Image3: TImage;
    Label2: TLabel;
    Panel7: TPanel;
    Image4: TImage;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
        procedure btnexpClick(Sender: TObject);
        procedure btnselwordClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure btnsavepdfClick(Sender: TObject);
        procedure btnexitClick(Sender: TObject);
        procedure RadioGroup1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure TrackBar1Change(Sender: TObject);
        procedure Button8Click(Sender: TObject);
        procedure Button9Click(Sender: TObject);
        procedure Button13Click(Sender: TObject);
        procedure Button15Click(Sender: TObject);
        procedure btnpicpdfClick(Sender: TObject);
        procedure Button12Click(Sender: TObject);
        procedure btnregClick(Sender: TObject);
        procedure btnhelpClick(Sender: TObject);
        procedure Button14Click(Sender: TObject);
        procedure btnBackClick(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
        procedure btnWordtoPDFClick(Sender: TObject);
        procedure Image1Click(Sender: TObject);
        procedure lbltimeClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure tbWordToPDFClick(Sender: TObject);
        procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
            Panel: TStatusPanel; const Rect: TRect);
        procedure Button11Click(Sender: TObject);
        procedure tbSetWaterMakClick(Sender: TObject);
        procedure tbHelpClick(Sender: TObject);
        procedure sbregisteredClick(Sender: TObject);
        procedure tbAboutClick(Sender: TObject);
        procedure TbBuyClick(Sender: TObject);
        procedure tbMainPageClick(Sender: TObject);
    private
        { Private declarations }
        Convertidx: integer;

        function setistrue(var wordFilename, pdfFileName: string): Boolean;
        //拷贝为图像

        procedure CopyAsPicture();

        //抓屏的方法
        procedure scanscreen();
        //获得信息
        procedure GetFileInfo(FileName: string);

    public
        { Public declarations }
    end;

var
    Frmwordtopdf                        : TFrmwordtopdf;

implementation

uses utMyword, utygpub, utylstream, PasERegPass, utEYLpass,
    utmyPPt, About, PasSetWatermark, utMyProgress, IdGlobal, utPPtToPDF;
const
    Mycaption                           = 'PDFScan Converter ';
    Maxnum                              : integer = 10;

function BlockInput(fFreezeInput: Boolean): DWord; stdcall; external
    'user32.DLL';

{$R *.dfm}
var
    url                                 : string ='';// 'http://www.pdfgolds.com';

function GetFileSize(FileName: string): integer;
begin
    result := FileSizeByName(FileName);
end;

function TFrmwordtopdf.setistrue(var wordFilename, pdfFileName: string):
    Boolean;
var
    str                                 : string;
begin
    result := false;
    wordFilename := edtdocFilename.Text;
    if wordFilename = '' then
    begin
        raise exception.Create('Word doc file can''t for empty');
    end;
    if not fileexists(wordFilename) then
    begin
        raise exception.CreateFmt('%s Document file does not exist',
            [wordFilename]);
    end;
    pdfFileName := edtpdffileName.Text;
    if pdfFileName = '' then
    begin
        raise exception.Create('pdfFiles can''t for empty');
    end;
    str := Format('%sFile already exists, is deleted?', [pdfFileName]);
    if fileexists(pdfFileName) then
    begin
        if not ansker_showmessage(str, str) then exit;
        if not deletefile(pdfFileName) then
            raise
                exception.CreateFmt('%s Document file already exists, cannot be removed',
                [pdfFileName]);
    end;
    CompressionQuality := TrackBar1.Position;
    result := True;
end;
//抓屏的方法

procedure TFrmwordtopdf.scanscreen();
var
    MyWord                              : TMyWord;
    wordFilename, pdfFileName           : string;
begin
    if not setistrue(wordFilename, pdfFileName) then exit;

    MyWord := TMyWord.Create(True);
    BlockInput(True);
    self.Visible := false;
    try
        MyWord.openFile(edtdocFilename.Text);

        MyWord.outpdfbyScreenShot(pdfFileName);
    finally
        BlockInput(false);
        self.Visible := True;
        MyWord.Free;
    end;

end;
//拷贝为图像

procedure TFrmwordtopdf.CopyAsPicture();
var
    MyWord                              : TMyWord;
    wordFilename, pdfFileName           : string;
begin
    if not setistrue(wordFilename, pdfFileName) then exit;

    MyWord := TMyWord.Create(false);

    try
        MyWord.openFile(edtdocFilename.Text);
        MyWord.openPDF := self.ckbopen.Checked;

        MyWord.outpdfbyCopyPicture(pdfFileName);
    finally

        MyWord.Free;
    end;

end;

//获得信息

procedure TFrmwordtopdf.GetFileInfo(FileName: string);
var
    ExtFilename                         : string;
begin
    lblFileSize.Caption := 'FileSize : ' + Inttostr(GetFileSize(FileName) div
        1024) + 'KB';
    lblFileName.Caption := 'FileName:' + ExtractFileName(FileName);
    ExtFilename := uppercase(ExtractFileExt(FileName));
    if ExtFilename = '.DOC' then
    begin

        LbLFileType.Caption := 'FileType: Word';
    end
    else if ExtFilename = '.PPT' then
    begin

        LbLFileType.Caption := 'FileType: PowerPoint';
    end
    else
    begin
        LbLFileType.Caption := 'FileType: Picture';
    end;
end;

procedure TFrmwordtopdf.btnselwordClick(Sender: TObject);
var
    pdfFileName                         : string;
begin
    selectfile(edtdocFilename, '*.doc|*.doc');
    pdfFileName := edtdocFilename.Text;
    edtpdffileName.Text := ChangeFileExt(pdfFileName, '.pdf');
    GetFileInfo(pdfFileName);

end;

procedure TFrmwordtopdf.FormCreate(Sender: TObject);
//判断密码是否正确
    function isok(): Boolean;
    begin
        result := getisok();
        sbregistered.Visible := result;
        TbBuy.Visible:=self.sbregistered.Visible;
    end;

begin
    ylparam := 'E299';
    isok();
    if getisok() then
    begin
        Caption := Mycaption + ' V2.0' + getVerInfo(application.ExeName) +
            ' (unregistered)';
    end
    else
    begin
        Caption := Mycaption + ' V2.0' + getVerInfo(application.ExeName);

    end;
    Convertidx := 1;
    self.PageControl1.ActivePageIndex := 1;

end;

procedure TFrmwordtopdf.FormClose(Sender: TObject;
    var Action: TCloseAction);
begin
    AppSaveSet();
end;

procedure TFrmwordtopdf.btnsavepdfClick(Sender: TObject);
begin
    savefile(edtpdffileName, '*.pdf|*.pdf', '.pdf');
end;

procedure TFrmwordtopdf.btnexitClick(Sender: TObject);
begin
    close();
end;

procedure TFrmwordtopdf.RadioGroup1Click(Sender: TObject);
begin
    Convertidx := RadioGroup1.ItemIndex;
end;

procedure TFrmwordtopdf.Button2Click(Sender: TObject);
var
    MyWord                              : TMyWord;

begin

    CompressionQuality := 100;
    MyWord := TMyWord.Create(false);

    try
        MyWord.openFile(edtdocFilename.Text);

        //MyWord.SavePicture('c:\temp\');
        MyWord.GetAllTable('c:\temp\');
    finally

        MyWord.Free;
    end;

end;

procedure createwortoword(pdfFileName: string);
var
    List                                : TstringList;
    i, num                              : integer;
    FileName                            : string;
var
    MyWord                              : TMyWord;

begin

    MyWord := TMyWord.Create(false);
    List := TstringList.Create;
    try
        MyWord.newDocument();

        SearchTabFiles(TempPath, List, '.jpg', false);

        num := List.Count;
        //initProgressBar(num, '正在扫描');
        if getisok() then
        begin
            if num > Maxnum then
            begin
                num := Maxnum;
            end;
        end;
        for i := 1 to num do
        begin

            FileName := TempPath + Inttostr(i) + '.jpg';

            MyWord.AddPicture(FileName);
            MyWord.MoveEnd();
            //MyWord.setbackpicture(FileName);

           // deletefile(pchar(FileName));
            //if ProgressStep() then
           //     Break;

        end;

        //FDoc.ActiveWindow.View.FullScreen:=True;
        MyWord.Save(pdfFileName);
    finally
        MyWord.Free();
        List.Free();
        // FreeProgressStep();
    end;

end;

procedure TFrmwordtopdf.Button3Click(Sender: TObject);
var
    MyWord                              : TMyWord;
    wordFilename, pdfFileName           : string;
begin
    if not setistrue(wordFilename, pdfFileName) then exit;
    killtask('winword.exe');

    MyWord := TMyWord.Create(false);
    try
        MyWord.openFile(edtdocFilename.Text);
        MyWord.outjpgbyCopyPicture(pdfFileName);
    finally

        MyWord.Free;

    end;
    //createwortoword('c:\1.doc');

end;

procedure TFrmwordtopdf.TrackBar1Change(Sender: TObject);
begin
    GroupBox3.Caption := Format('Export pictures PDF quality(%d',
        [TrackBar1.Position]) + '%)';
end;

procedure TFrmwordtopdf.Button8Click(Sender: TObject);

var
    pdfFileName                         : string;
begin
    selectfile(edtpptFilename, '*.ppt|*.ppt');
    pdfFileName := edtpptFilename.Text;
    edtpptpdf.Text := ChangeFileExt(pdfFileName, '.pdf');
    GetFileInfo(pdfFileName);

end;

procedure TFrmwordtopdf.Button9Click(Sender: TObject);
begin
    savefile(edtpptpdf, '*.pdf|*.pdf', '.pdf');
end;

procedure TFrmwordtopdf.Button13Click(Sender: TObject);
var
    pdfFileName                         : string;
begin
    selectfile(edtpic, '*.jpg|*.jpg|*.bmp|*.bmp|*.wmf|*.wmf|*.emf|*.emf');
    pdfFileName := edtpic.Text;
    GetFileInfo(pdfFileName);
    edtpicpdf.Text := ChangeFileExt(pdfFileName, '.pdf');

end;

procedure TFrmwordtopdf.Button15Click(Sender: TObject);
begin
    savefile(edtpicpdf, '*.pdf|*.pdf', '.pdf');
end;

procedure TFrmwordtopdf.btnpicpdfClick(Sender: TObject);
    function picsetistrue(var wordFilename, pdfFileName: string):
            Boolean;
    var
        str                             : string;
    begin
        result := false;
        wordFilename := edtpic.Text;
        if wordFilename = '' then
        begin
            raise exception.Create('Picture files can''t for empty');
        end;
        if not fileexists(wordFilename) then
        begin
            raise exception.CreateFmt('%sPicture file does not exist',
                [wordFilename]);
        end;
        pdfFileName := edtpicpdf.Text;
        if pdfFileName = '' then
        begin
            raise exception.Create('pdfFiles can''t for empty');
        end;
        str := Format('%s File already exists, is deleted?', [pdfFileName]);
        if fileexists(pdfFileName) then
        begin
            if not ansker_showmessage(str, str) then exit;
            if not deletefile(pdfFileName) then
                raise
                    exception.CreateFmt('%sDocument file already exists, cannot be removed!',
                    [pdfFileName]);
        end;
        CompressionQuality := TrackBar1.Position;
        result := True;
    end;

var
    pdfFileName, wordFilename           : string;
    idx                                 : integer;
begin
    if not picsetistrue(wordFilename, pdfFileName) then exit;

    //btnpicpdf.Enabled := false;
    try

        idx := rgpage.ItemIndex;
        onePICTOPDF(idx, wordFilename, pdfFileName);

    finally
        //btnpicpdf.Enabled := True;
    end;
end;

procedure TFrmwordtopdf.Button12Click(Sender: TObject);
begin
    self.PageControl1.ActivePageIndex := 0;
end;

procedure TFrmwordtopdf.btnregClick(Sender: TObject);
var
    FrmRegPass                          : TFrmRegPass;
begin
    FrmRegPass := TFrmRegPass.Create(nil);
    self.btnreg.Visible := not (FrmRegPass.showmodal = mrok);
    if not self.btnreg.Visible then
    begin

    end;
    FrmRegPass.Free;
end;

procedure TFrmwordtopdf.btnhelpClick(Sender: TObject);
begin
    //runfile(ChangeFileExt(application.ExeName, '.chm'), 'open');
    runfile(url, '');
end;

procedure TFrmwordtopdf.Button14Click(Sender: TObject);
begin
    self.PageControl1.ActivePageIndex := 0;
end;

procedure TFrmwordtopdf.btnBackClick(Sender: TObject);
begin
    self.PageControl1.ActivePageIndex := 0;
end;

procedure TFrmwordtopdf.Timer1Timer(Sender: TObject);
begin
    if (lbltime.Font.Color = clwhite) then
    begin
        lbltime.Font.Color := clred;
    end
    else
    begin
        lbltime.Font.Color := clwhite;
    end;
end;

procedure TFrmwordtopdf.btnWordtoPDFClick(Sender: TObject);
var
    tag                                 : integer;
begin
    tag := (Sender as TBitBtn).tag;
    self.PageControl1.ActivePageIndex := tag;
    //scaleZoom:=StrTofloat(edit1.Text);
end;

procedure TFrmwordtopdf.Image1Click(Sender: TObject);
begin
    runfile(url, '');
end;

procedure TFrmwordtopdf.lbltimeClick(Sender: TObject);
begin
    runfile(url, '');
end;

procedure TFrmwordtopdf.FormShow(Sender: TObject);
    function GetmyComputerName(): string;
    var
        ComputerName                    : array[0..MAX_COMPUTERNAME_LENGTH + 1]
            of char;
        sComputerName                   : string;
        lpSize                          : DWord;

    begin
        lpSize := MAX_COMPUTERNAME_LENGTH + 1;
        if GetComputerName(@ComputerName, lpSize) then
        begin
            sComputerName := ComputerName;
        end
        else
        begin
            sComputerName := '';
        end;
        //   Result   :=   sResult   ;
        result := sComputerName;
    end;
begin
    AppgetSet();
    edtUser.Text := GetmyComputerName();
    TempPath := GetTemPath() + 'gisoracle\';
    //showmessage(TempPath);

end;

procedure TFrmwordtopdf.Button4Click(Sender: TObject);
begin
    showmessage(GetWindowsVersion());
end;

procedure TFrmwordtopdf.tbWordToPDFClick(Sender: TObject);
var
    tag                                 : integer;
begin
    tag := (Sender as TToolButton).tag;
    self.PageControl1.ActivePageIndex := tag;
    GBRight.Parent := self.PageControl1.Pages[tag];
    //scaleZoom:=StrTofloat(edit1.Text);
end;
{var
    progressBarRect                     : TRect; // 进度条组件的尺寸}

procedure TFrmwordtopdf.StatusBar1DrawPanel(StatusBar: TStatusBar;
    Panel: TStatusPanel; const Rect: TRect);
begin
    // progressBarRect := Rect;
    utMyProgress.progressBarRect := Rect;
    utMyProgress.StatusBar1 := StatusBar1;

end;

procedure TFrmwordtopdf.Button11Click(Sender: TObject);
var
    i                                   : integer;
begin
    utMyProgress.initProgressBar(10000);
    for i := 1 to 10000 do
    begin
        utMyProgress.ProgressStep()
    end;
    MessageDlg('演示操作已经完成!', mtInformation, [mbOK], 0);
    utMyProgress.FreeProgressStep();
end;

procedure TFrmwordtopdf.tbSetWaterMakClick(Sender: TObject);
begin
    FrmSetWaterMark.Show();
end;

procedure TFrmwordtopdf.tbHelpClick(Sender: TObject);
begin
    //
    //runfile('http://www.pdfgolds.com/help', '');

    runfile('','');
end;

procedure TFrmwordtopdf.sbregisteredClick(Sender: TObject);
var
    FrmRegPass                          : TFrmRegPass;
begin
    FrmRegPass := TFrmRegPass.Create(nil);
    self.sbregistered.Visible := not (FrmRegPass.showmodal = mrok);
    TbBuy.Visible:=self.sbregistered.Visible;
    if not self.btnreg.Visible then
    begin

    end;
    FrmRegPass.Free;
end;

procedure TFrmwordtopdf.tbAboutClick(Sender: TObject);
var
    FrmAboutBox                         : TFrmAboutBox;
begin
    FrmAboutBox := TFrmAboutBox.Create(nil);
    FrmAboutBox.showmodal;
    FrmAboutBox.Free;

end;

procedure TFrmwordtopdf.TbBuyClick(Sender: TObject);
var
    str                                 : string;
begin
    str := 'http://www.pdfgolds.com/register.html';
    str:='';
    runfile(str, '');

end;

procedure TFrmwordtopdf.btnexpClick(Sender: TObject);
    procedure Runword();
    begin
        if exe_is_running('winword.exe') then
        begin 
                       
                    
                     
                      



鲜花




握手




雷人




路过




鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

****-学matlab符号计算-Matlab发布时间：2022-07-18

matlab-图像处理-边缘检测算法五种发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

2023-10-27

florent37/ViewAnimator: A fluent Android

2022-08-15

florent37/Shrine-MaterialDesign2: implem

2022-08-17

CVE-2020-36276

2022-09-23

SimpleSoftwareIO/simple-sms: Send and re

2022-08-13

阅读排行榜

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：17928|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9553|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8120|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8500|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8405|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9292|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8369|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7796|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8350|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7354|2022-11-06

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服

地址：深圳市南山区西丽大学城创智工业园

电邮：jeky_zhao#qq.com

移动电话：139-2527-9053

客服电话

电子邮件

word转图片delphi源代码

请发表评论

全部评论

上一篇：

下一篇：

Matlab电路仿真

bradtraversy/iweather: Ionic 3 mobile we

joaomh/curso-de-matlab

断牙刷新位置时间（断牙属性及刷新位置介绍

rugk/mastodon-simplified-federation: Sim