皮皮网

1.delphi如何用CreateWindowEx创建一个窗体？
2.在DELPHI设置EXCEL工作薄的源码名称

delphi如何用CreateWindowEx创建一个窗体？

       è¿™ä¸ªéƒ½æ²¡äººæ¥ç­”么，那我来大概说说吧。

       é¦–先你得先写一个注册窗口的函数：

       function tmainform.RegClass:Boolean;

       var

        WndClass:TWndClass;

       begin

        //这里面是你注册的WndClass窗体的信息，代码麻烦我就不打了。

       end;

       ç„¶åŽæ˜¯åˆ›å»ºçª—口的过程：

       procedure tmainform.CreateForm;

       var

        Wnd:HWND;

       begin

        RegClass;

        Wnd:=CreateWindow('MyFormClass', //注册窗口类名

        '窗口标题', //窗口标题栏

        WS_OVERLAPPEDWINDOW, //窗口风格

        CW_USEDEFAULT, //默认left

        CW_USEDEFAULT, //默认top

        CW_USEDEFAULT, //默认width

        CW_USEDEFAULT, //默认height

        SELF.HANDLE, //父窗口句柄

        MainMenu1.Handle, //窗口菜单

        HInstance, //程序实例

        nil //窗体附加参数

        );

        IF Wnd<>0 THEN

        BEGIN

        ShowWindow(Wnd,SW_SHOWNORMAL); //SHOW窗口

        UpdateWindow(Wnd); //刷新窗口

        END;

       end;

       å®Œäº†ï¼Œä»¥ä¸Šæ˜¯ä»¥ CreateWindow 为例 创建窗口，仅作参考。

       PS：没有分的回答还要打N多代码，怪不得没人来答。

在DELPHI设置EXCEL工作薄的名称

       首先打开EXCEL文件，改名保存后，源码多开软件源码购买删除原文件就达到目地了。源码电子海图源码

       源码：

       procedure TForm1.Button1Click(Sender: TObject);

       const

        NewName = 'NewName.xls';

       var

        fnm,源码积分夺宝源码pth: String;

        ExlApp: TExcelApplication;

        ExlWb: TExcelWorkbook;

       begin

        if OpenDialog1.Execute then begin

        fnm := OpenDialog1.FileName;

        pth := ExtractFilePath(fnm);

        ExlApp := TExcelApplication.Create(Forms.Application);

        ExlApp.Connect;

        ExlApp.Visible[0] := False;

        ExlWb := TExcelWorkbook.Create(Forms.Application);

        ExlWb.ConnectTo(

        ExlApp.Workbooks.Open(fnm,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,0));

        ExlApp.Application.DisplayAlerts[0] := False;

        ExlWb.SaveCopyAs(pth + NewName);

        ExlWb.Close(EmptyParam, fnm, EmptyParam, 0);

        ExlApp.Quit;

        //必要时，可以删除原来的源码jbpm 源码 下载文件

        //DeleteFile(fnm);

        end;

       end;