• YJHOrbwsm%2D5197
    了解作者
  • Dev C++
    开发工具
  • 3KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 0
    下载次数
  • 2019-05-26 06:05
    上传日期
Use c ++ builder for file operations 用c++builder进行文件操作
6326983.rar
  • 04ch01-01-1
  • Unit1.cpp
    2.2KB
  • Unit1.h
    1.1KB
  • Unit1.ddp
    51B
  • Unit1.dfm
    1.3KB
  • Project1.cpp
    644B
  • Project1.bpr
    3.2KB
  • Project1.res
    876B
内容介绍
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //默认按钮状态 Button1->Enabled = true; Button2->Enabled = false; Button3->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //删除Memo1中所有文字 Memo1->Text = ""; //判断现在程序是否为ANSI字符集or OEM字符集 //这项判断功能对 8 位输出入设备极为有用 if(AreFileApisANSI()) { Memo1->Lines->Add("现在程序是 ANSI 字符集!"); Memo1->Lines->Add("为 WIN32 函数使用。"); Memo1->Lines->Add("若单击Button2按钮,则转成 OEM 字符集,"); Memo1->Lines->Add("可以直接由 8 字节输入输出设备使用。"); Button2->Enabled = true; Button3->Enabled = false; } else { Memo1->Lines->Add("程序是 OEM 字符集!"); Memo1->Lines->Add("可以直接由 8 字节输出入设备使用。"); Memo1->Lines->Add("若单击Button3按钮,则转成 ANSI 字符集,"); Memo1->Lines->Add("为 WIN32 函数使用。"); Button2->Enabled = false; Button3->Enabled = true; } Memo1->Lines->Add("以上都会影响现有函数返回的结果"); Button1->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { //由 ANSI 变成 OEM SetFileApisToOEM(); Memo1->Text = "由 ANSI 字符集转成 OEM 字符集"; //重设按钮状态 Button1->Enabled = true; Button2->Enabled = false; Button3->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { //由OEM 变成 ANSI SetFileApisToANSI(); Memo1->Text = "由 OEM 字符集转成 ANSI 字符集"; //重设按钮状态 Button1->Enabled = true; Button2->Enabled = false; Button3->Enabled = false; } //---------------------------------------------------------------------------
评论
    相关推荐
    • froa.rar
      VC6,0 客户端程序,用来检测 主机的运行状态,从服务器读取数据
    • base.rar
      C_#数字图像处理算法典型实例源代码,可以下载写写
    • 456145.rar
      VC中的串口派生类 Serial derived class in VC
    • 295856.rar
      UWP 发送邮件源码 Send mail source
    • cole.rar
      Using C # times to write the web analyzer source code, simple and practical
    • satepbq.rar
      UGUI a key alignment UGUI一键对齐
    • schama.rar
      ing工具代码,选择IP地址,发送请求,得到响应
    • cdde.rar
      c#做的一个xp_2K下的门禁代码,比如是机房管理系统,学习交流!,
    • the.rar
      C#代码生成器,生成调用SQL存储过程的代码,不错
    • 3DES加密算法源代码.rar
      DES加密源代码,用3DES加密算法。 加密强度高,到目前为止,还无人能够破解!