系统编程部分技巧

最新推荐文章于 2024-09-03 09:34:41 发布
最新推荐文章于 2024-09-03 09:34:41 发布
阅读量1.3k 收藏
点赞数
文章标签： 编程 keyboard null path string nokia
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/haiqian119/article/details/1194946
版权

#define NO_WIN32_LEAN_AND_MEAN
#include <shlobj.h>
#include <vcl.h>
#pragma hdrstop

#include "Unitmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_1Click(TObject *Sender)
{
    // 键盘类型
    int iType = GetKeyboardType(0);
    switch(iType){
        case 1:edt_keyType->Text = "IBM PC/XT or compatible (83-key) keyboard"; break;
        case 2:edt_keyType->Text = "Oivetti 'ICO' (102-key) keyboard"; break;
        case 3:edt_keyType->Text = "IBM PC/AT or (84-key) or similar keyboard"; break;
        case 4:edt_keyType->Text = "IBM enhanced (101- or 102-key) keyboard"; break;
        case 5:edt_keyType->Text = "Nokia 1050 and similar keyboard"; break;
        case 6:edt_keyType->Text = "Nokia 9140 and similar keyboards"; break;
        case 7:edt_keyType->Text = "Janpanese keyboard"; break;
    }
    // 声卡配置
    int Wave,Midi;
    WAVEOUTCAPS wavecap;
    MIDIOUTCAPS midicap;
    Wave = (int) waveOutGetNumDevs();
    Midi = (int) midiOutGetNumDevs();
    if(Wave == 0)   edt_1->Text = "没有发现波形设备";
    else{
        waveOutGetDevCaps(0,&wavecap,sizeof(WAVEOUTCAPS));
        edt_1->Text = String(wavecap.szPname);
    }
    if(Midi == 0)   edt_2->Text = "没有发现 MIDI 设备";
    else{
        midiOutGetDevCaps(0,&midicap,sizeof(MIDIOUTCAPS));
        edt_2->Text = String(midicap.szPname);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_2Click(TObject *Sender)
{
    SYSTEM_INFO si;
    GetSystemInfo(&si);
    edt_3->Text = IntToStr(si.dwPageSize);                              // 分页大小
    edt_4->Text = IntToStr(Integer(si.lpMaximumApplicationAddress));    // 程序最大寻址空间:
    edt_5->Text = IntToStr(Integer(si.lpMinimumApplicationAddress));    // 程序最小寻址空间:
    edt_6->Text = IntToStr(si.dwNumberOfProcessors);                    // 处理器数目
    switch(si.dwProcessorType){                                         // 处理器类型
        case 386:
        case 486: edt_7->Text = "Intel 80" +IntToStr(si.dwProcessorType); break;
        case 586: edt_7->Text = "Intel Pentium" +IntToStr(si.dwProcessorType); break;
        default: "非 Intel 处理器"; break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_3Click(TObject *Sender) // 获取窗口背景颜色
{
    pnl_Color->Color = (TColor)GetSysColor(COLOR_WINDOW);
}
void __fastcall TForm1::btn_4Click(TObject *Sender) // 获取桌面背景颜色
{
    pnl_Color->Color = (TColor)GetSysColor(COLOR_BACKGROUND);
}
void __fastcall TForm1::btn_5Click(TObject *Sender) // 获取活动窗口标题颜色
{
    pnl_Color->Color = (TColor)GetSysColor(COLOR_ACTIVECAPTION);
}
void __fastcall TForm1::btn_6Click(TObject *Sender) // 获取非活动窗口标题颜色
{
    pnl_Color->Color = (TColor)GetSysColor(COLOR_INACTIVECAPTION);
}
void __fastcall TForm1::btn_7Click(TObject *Sender) // 获取菜单颜色
{
    pnl_Color->Color = (TColor)GetSysColor(COLOR_MENU);
}
void __fastcall TForm1::btn_8Click(TObject *Sender) // 获取3D按钮阴影颜色
{
    pnl_Color->Color = (TColor)GetSysColor(COLOR_BTNSHADOW);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_DisplayClick(TObject *Sender)   // 获取系统支持的显示模式
{
    lst_Display->Clear();
    DEVMODE *lpDevMode = new DEVMODE;
    int i=0,nIndex;
    bool Result = EnumDisplaySettings(NULL,i,lpDevMode);
    while(Result){
        String str = IntToStr(lpDevMode->dmPelsWidth)+"*"+IntToStr(lpDevMode->dmPelsHeight)+"*"+IntToStr(lpDevMode->dmBitsPerPel);
        lst_Display->Items->Add(str);
        Result = EnumDisplaySettings(NULL,++i,lpDevMode);
    }
    delete lpDevMode;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_9Click(TObject *Sender)
{
    TMemoryStatus vm;
    vm.dwLength = sizeof(TMemoryStatus);
    GlobalMemoryStatus(&vm);
    edt_8->Text = IntToStr(vm.dwMemoryLoad)+"%";                // 内存用量百分比
    edt_9->Text = IntToStr(vm.dwTotalPhys/1024/1024)+"MB";      // 实际内存总大小：
    edt_10->Text = IntToStr(vm.dwAvailPhys/1024/1024)+"MB";     // 可用的实际内存：
    edt_11->Text = IntToStr(vm.dwTotalPageFile/1024/1024)+"MB"; // 页文件总数:
    edt_12->Text = IntToStr(vm.dwAvailPageFile/1024/1024)+"MB"; // 可用的页文件总数
    edt_13->Text = IntToStr(vm.dwTotalVirtual/1024/1024)+"MB";  // 虚拟内存总数
    edt_14->Text = IntToStr(vm.dwAvailVirtual/1024/1024)+"MB";  // 可用的虚拟内存总数
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_SeeClick(TObject *Sender)
{
    if(dlgOpen_1->Execute())
        edt_File->Text = dlgOpen_1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_ShortClick(TObject *Sender)         // 桌面或者开始菜单创建快捷方式
{
    if(FAILED(CoInitialize(NULL))){
        MessageBox(Handle,"COM 初始化失败","提示信息",MB_OK);
        return;
    }
    String FileName = edt_File->Text;
    if(FileName.IsEmpty()) return;
    int CSIDLVALUE;
    char Path[MAX_PATH+1];
    String StrDestDir;
    CSIDLVALUE = CSIDL_DESKTOPDIRECTORY;    // 桌面文件夹;
    //CSIDLVALUE = CSIDL_STARTMENU;           // 开始菜单文件夹
    LPITEMIDLIST pidl;
    LPMALLOC pShellMalloc;
    if(SUCCEEDED(SHGetMalloc(&pShellMalloc))){
        if(SUCCEEDED(SHGetSpecialFolderLocation(NULL,CSIDLVALUE,&pidl))){
            if(!SHGetPathFromIDList(pidl,Path)){
                MessageBox(Handle,"操作失败","提示信息",MB_OK);
                return;
            }
        }
    }
    pShellMalloc->Free(pidl);
    pShellMalloc->Release();
    StrDestDir = Path;
    StrDestDir += "//新建程序快捷方式.lnk";
    IShellLink *psl;
    if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(LPVOID*)&psl))){
        psl->SetPath(FileName.c_str());
        IPersistFile* ppf;
        if(SUCCEEDED(psl->QueryInterface(IID_IPersistFile,(LPVOID*)&ppf))){
            WCHAR wsz[MAX_PATH];
            MultiByteToWideChar(CP_THREAD_ACP,MB_PRECOMPOSED,StrDestDir.c_str(),-1,wsz,MAX_PATH);
            if(SUCCEEDED(ppf->Save(wsz,TRUE)))
                MessageBox(Handle,"快捷方式创建成功","信息提示",MB_OK+MB_ICONWARNING);
            ppf->Release();
            return;
        }
        psl->Release();
    }
    MessageBox(Handle,"","",MB_OK+MB_ICONWARNING);
    ::CoUninitialize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CaptureMessage(TMessage Msg)
{
    //TODO: Add your source code here
    if(Msg.WParam == SC_SCREENSAVE)
        MessageBox(Handle,"系统将启动屏幕保护程序,但被阻止","信息提示",MB_OK);
    else
        TForm::Dispatch(&Msg);
}
void __fastcall TForm1::btn_10Click(TObject *Sender)
{
    SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_DelClick(TObject *Sender)
{
    if(edt_File->Text.IsEmpty()) return;
    char StrFile[MAX_PATH];
    strcpy(StrFile,edt_File->Text.c_str());
    SHFILEOPSTRUCT lpFile;
    lpFile.hwnd = NULL;
    lpFile.wFunc = FO_DELETE;
    lpFile.pFrom = StrFile;
    lpFile.pTo = NULL;
    lpFile.hNameMappings = NULL;
    lpFile.fFlags =  FOF_ALLOWUNDO; // FOF_NOCONFIRMATION;
    lpFile.lpszProgressTitle = NULL;
    SHFileOperation(&lpFile);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_11Click(TObject *Sender)        // 启动控制面板程序
{
    WinExec("Rundll32.exe shell32.dll, Control_RunDLL",SW_RESTORE);
}
void __fastcall TForm1::btn_12Click(TObject *Sender)        // 启动属性桌面
{
    WinExec("Rundll32.exe shell32.dll, Control_RunDLL desk.cpl,,0",SW_RESTORE);
}
void __fastcall TForm1::btn_14Click(TObject *Sender)        // 启动属性屏保
{
    WinExec("Rundll32.exe shell32.dll, Control_RunDLL desk.cpl,,1",SW_RESTORE);
}
void __fastcall TForm1::btn_13Click(TObject *Sender)        // 启动属性设置
{
    WinExec("Rundll32.exe shell32.dll, Control_RunDLL desk.cpl,,3",SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_ClearClick(TObject *Sender)     // 清空系统回收站
{
    SHEmptyRecycleBin(NULL,NULL,SHERB_NOCONFIRMATION | SHERB_NOPROGRESSUI | SHERB_NOSOUND);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chk_LightOrDarkClick(TObject *Sender)
{
    if(chk_LightOrDark->Checked){   // 屏幕颜色变暗
        chk_LightOrDark->Caption = "屏幕变亮";
        unsigned char bybits[16] = {0x55,0,0xaa,0, 0x55,0,0xaa,0, 0x55,0,0xaa,0, 0x55,0,0xaa,0};
        HANDLE MyDC;
        HANDLE hBitmap = CreateBitmap(8,8,1,1,&bybits[0]);
        HANDLE hBrush  = CreatePatternBrush(hBitmap);
        MyDC = GetDC(0);
        SelectObject(MyDC,hBrush);
        PatBlt(MyDC,0,0,Screen->Width,Screen->Height,0xa000c9);
        DeleteObject(hBrush);
        DeleteObject(hBitmap);
        ReleaseDC(0,MyDC);
    }else{                          // 恢复屏幕颜色
        InvalidateRect(0,0,1);
        chk_LightOrDark->Caption = "屏幕颜色变暗";
    }
}
//-------------------------------------
void __fastcall TForm1::btn_GetURLClick(TObject *Sender)    // 获取当前的URL
{
    if(dde_1->SetLink("IExplore","WWW_GetWindowInfo")){
        dde_1->OpenLink();
        edt_URL->Text=dde_1->RequestData("-1");
        dde_1->CloseLink();
    }else   edt_URL->Text = "浏览器没有运行!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_OpenURLClick(TObject *Sender)   // 打开当前的URL
{
  AnsiString StrURL=this->edt_URL->Text;
  if(StrURL.Length()<1) return;
  if(this->dde_1->SetLink("IExplore","WWW_OpenURL")){
    dde_1->OpenLink();
    dde_1->RequestData(StrURL);
    dde_1->CloseLink();
  }
    else   edt_URL->Text = "浏览器无法运行!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // 获取当前正在运行的程序
    lst_1->Clear();
    HWND hWnd = GetWindow(Handle,GW_HWNDFIRST);
    while(hWnd){
        char StrName[255];
        if(GetWindowText(hWnd,StrName,255)>0)
            lst_1->Items->Add(StrName);
        hWnd = GetWindow(hWnd,GW_HWNDNEXT);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClipboardChanged(TMessage Msg)
{
    //TODO: Add your source code here
    MessageBox(Handle,"系统剪贴板发生变化","信息提示",MB_OK);
}
void __fastcall TForm1::btn_ClipbrdClick(TObject *Sender)   // 启动系统剪贴板监视
{
    static HWND Handle;
    static bool clip = false;
    if(clip){
        ChangeClipboardChain(this->Handle,Handle);
        btn_Clipbrd->Caption = "启动系统剪贴板监视";
    }else{
        Clipboard()->Clear();
        Handle = SetClipboardViewer(this->Handle);
        btn_Clipbrd->Caption = "关闭系统剪贴板监视";
    }
    clip = !clip;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_ModeClick(TObject *Sender)      // 操作系统启动模式
{
    switch(GetSystemMetrics(SM_CLEANBOOT)){
        case 0:MessageBox(Handle,"操作系统启动模式:正常模式启动","提示信息",MB_OK);break;
        case 1:MessageBox(Handle,"操作系统启动模式:安全模式启动","提示信息",MB_OK);break;
        case 2:MessageBox(Handle,"操作系统启动模式:安全模式,但带网络附带功能","提示信息",MB_OK);break;
        default:MessageBox(Handle,"操作系统启动模式:错误 系统有问题","提示信息",MB_OK);break;
    }
}

海嵌
关注
linux 系统编程
06-06
《LINUX系统编程》讲述了：在某些时刻，几乎所有的程序员都要与其程序所处操作系统中的系统调用和程序库打交道。《LINUX系统编程》主要讨论如何编写Linux系统软件——代码位于底层，并且直接跟内核及核心系统程序库对话。《Linux系统编程》描述了使用标准接口包括使用Linux独有的高级接口时，在功能和性能之间如何进行权衡取舍的策略。
系统编程
大人的博客
04-12 185
进程线程对比 1、根本区别  进程是操作系统资源分配的基本单位；而线程是任务调度和执行的基本单位。  每个进程都有独立的代码和数据空间；同一类线程共享代码和数据空间。  在操作系统中能同时运行多个进程（程序）；而在同一个进程中有多个线程同时执行。  内存分配方面：系统在运行的时候会为每个进程分配不同的内存空间；而对线程而言，除了CPU外，系统分配内存（线程所使用的资源来自其所属进程的资源），线程组...
Linux系统编程 ---- 【1】系统编程初探
最新发布
xinxin的博客
09-03 829
Linux 系统编程可以被看作是介于应用层和驱动层之间的一个领域。它涉及操作系统内核提供的系统调用和功能，这些功能既可以为应用层提供支持，也可以与驱动层交互。以下是对这一关系的详细说明：1.应用层- 应用层是用户直接接触的部分，它包括用户运行的各种程序，比如浏览器、文本编辑器、图形界面应用等。- 应用层编程通常使用高级语言（如 C、C++、Python 等），通过标准库或框架与操作系统交互。
基于Linux系统分析计算机C语言编程技巧.pdf
09-06
"基于Linux系统分析计算机C语言编程技巧.pdf" 本文主要介绍了基于Linux系统的C语言编程技巧，旨在帮助编程人员更好地掌握Linux系统和C语言编程的结合应用。文章首先介绍了Linux系统的概述，包括其历史、特点和应用...
sysprog-Windows系统编程奥秘.zip_WINDOWS系统编程_sysprog_系统编程
09-20
5. **注册表**：Windows使用注册表存储系统设置和应用程序配置，学习如何安全地读写注册表是系统编程的一部分。 6. **设备驱动编程**：对于需要与硬件交互的程序，编写设备驱动程序是必要的。这涉及Windows驱动模型...
介绍一些51单片机的编程技巧
08-04
51单片机编程技巧总结 在本文中，我们将对51单片机编程技巧进行总结和介绍。本文涵盖了变量定义、子程序声明、编译优化、定时器使用、软件实现“看门狗”功能、多个定时器的使用、提高所求值的精度等多个方面的51...
Linux-UNIX系统编程手册.pdf
10-17
Linux/UNIX系统编程是计算机...总结来说，这本手册是Linux和UNIX系统编程学习者和专业人员必备的参考书籍之一，它不仅覆盖了广泛的系统编程知识，还提供了大量的实例和图表，帮助读者快速掌握复杂的编程概念和技巧。
unix系统编程
05-02
本书反映了UNIX操作系统的标准和本质，重点讲解了操作系统内核（UNIX中真正的操作系统部分）、运行于UNIX环境系统中程序之间的系统调用接口以及UNIX系统所带的一些重要的库函数。本书通过对系统调用和库函数的剖析，...
系统编程（程序与进程，进程操作API）
weixin_46431190的博客
02-15 666
一、什么是程序，什么是进程 1.程序：一堆待执行的代码，称之为程序 2.进程：当程序被CPU加载后，程序中一行行代码被执行，形成一个动态的过程，即一个正在执行的程序 3.如何执行一个进程：即执行程序，如执行hello，即./hello 4.进程在系统中如何存储：以结构体的形式进行存储，结构体中存放该进程的一些相关信息，可通过ps -ef查看进程相关信息 二、如何查看当前系统进程 1.输入ps -ef查看 可以查看到当前系统内进程的各项信息，例如：进程的使用者（权限归属），进程id，该进程的父进
什么是系统编程
Samature的博客
10-09 3628
博客内容摘自Unix/Linux编程实践教程 1. 简单的程序模型 你可能写过各种各样的程序，有柯学计算方面的，金融方面的，图像方面的，文字处理方面的等，大部分的程序都是基于以下模型 在这个模型中，程序就是可以再计算机上运行的一段代码，程序把输入数据做相应处理后输出，例如用户在键盘上输入数据，然后在屏幕得到输出，程序可能对磁盘进行操作，还可能会用到打印机 遵循上述模型。看以下代码 /*copy from stdin to stdout*/ main() { int c; while ((c = get
系统级编程是什么？
热门推荐
Kemin | 本博客独立到nakeman.cn
11-26 1万+
系统级编程是什么？部分摘自《Linux System Programming 》作者: Robert Love刘建文略译（http://blog.csdn.net/keminlau）KEY:系统论 系统编程 System Programming 过去的Unix编程是没有系统不系统之分的。即便是开发 X Window也是在系统级（system-level）
C语言系统编程
m0_60897819的博客
04-08 993
它可以在一组文件描述符上等待可读、可写或异常事件的发生，并在有事件发生时返回，从而避免了轮询多个文件描述符的开销。新的子进程是原始父进程的副本，包括了所有的内存和资源，但有着自己独立的进程 ID（PID）。函数返回两次，一次在父进程中返回新创建的子进程的 PID，另一次在子进程中返回 0。进程是一个程序在其数据集合上的执行过程，包含了程序代码、相关的数据以及操作系统分配给它的系统资源（如内存空间、打开的文件描述符等）。函数成功时返回就绪的文件描述符的数量，失败时返回 -1，并设置 errno。
系统编程（数据库）
Ycx_lq的博客
03-05 346
FILE *  指针   文件打开成功，则返回被打开文件的指针。若文件打开失败，返回NULL； fopen（文件名，权限） 如fopen（“a.txt”,"r"）   权限分只读，只写，追加 程序1：:从指定的文件中读一个字符 #include #include #include int main() { FILE *fp; char ch;
嵌入式系统高级C语言编程技巧详解
这门课程专注于C语言在嵌入式系统中的高级应用，旨在帮助学习者提升从基础C语法到实际编程技巧的能力。课程由东南大学国家专用集成电路系统工程技术研究中心的凌明主讲，适合已具备基本C语言知识的学员。课程强调...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值