[转载]软件开发中几个常用功能的实现

天云上人

介绍
+ h9 L0 L9 r% W在各个技术论坛中间，常常见到很多软件开发中提到的最多的基本问题，现在进行列举出来，希望对各位有用。
, S/ l5 O( I9 u9 v
正文
7 N: I8 K! h) v在进行软件开发过程中间，有很多小功能的实现，虽然这些东西你可以不用，但是如果应用仂将会是你的程序更具有专业性。
7 f! k  q; z2 O一、设置程序自动运行。
    很多监控软件要求软件能够在系统重新启动后不用用户去点击图标启动项目，而是直接能够启动运行，方法是写注册表SoftwareMicrosoftWindowsCurrentVersionRun。参考程序可以见下：(查找程序目录的执行文件，存在则进行添加注册表操作)
         HKEY RegKey;
         CString sPath;
         GetModuleFileName(NULL,sPath.GetBufferSetLength(MAX_PATH+1),MAX_PATH);
         sPath.ReleaseBuffer();
5 H$ ~: m; b. S! S; W         int nPos;
    nPos=sPath.ReverseFind(’’);
    sPath=sPath.Left(nPos);
2 k3 N. o) J7 j6 w8 T9 S1 _9 a    CString lpszFile=sPath+"****.exe";//这里加上你要查找的执行文件名称
    CFileFind fFind;
    BOOL bSuccess;
4 k' j9 s% G( y' c% _  R    bSuccess=fFind.FindFile(lpszFile);
    fFind.Close();
0 C. u9 W. @+ F5 `* V    if(bSuccess)
    {
        CString fullName;
3 j8 v1 v' f3 L) N( d; `        fullName=lpszFile;
        RegKey=NULL;
9 x4 t$ r2 w3 S+ q" q# B        RegOpenKey(HKEY_LOCAL_MACHINE,"SoftwareMicrosoftWindowsCurrentVersionRun",&RegKey);
3 [* ~' }% T, P: {" U. o$ N        RegSetValueEx(RegKey,"*****",0,REG_SZ,(const unsigned char*)(LPCTSTR)fullName,fullName.GetLength());//这里加上你需要在注册表中注册的内容
        this->UpdateData(FALSE);
7 C3 p) g+ G% Q) }    }
( c/ F" O: @' h" g    else
    {
        theApp.SetMainSkin();
        ::AfxMessageBox("没找到执行程序，自动运行失败");
# G) X: O/ _2 U        exit(0);
    }

: K+ ^' s, l$ I8 I( G4 J+ ?% Z  _! ^, b二、自动配置数据源
0 o5 R$ N: \. L" x    很多的程序都要用到数据库结合的操作，这里举例ACCESS，因为ACCESS在中小型VC系统开发中是最常用到的，如果程序的移植，如果对于很初级的用户来说，你还需要他到配置面板中进行数据源配置的话，那就有点说不过去了。
         #include <odbcinst.h>
         //配置数据源，数据库在应用程序目录下,这里比如数据库文件名为***.mdb，程序运行时候可以将数据库文件拷贝到程序目录下面。
; O; O" D- j4 g    CString sPath;
    GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
$ g: P, d" P+ z/ t4 V! ~    sPath.ReleaseBuffer();
- f3 G1 v+ \7 ]" D    int nPos;
    nPos=sPath.ReverseFind(’’);
    sPath=sPath.Left(nPos);
' {# E0 o+ H0 E4 o5 v$ p    CString lpszFileName = sPath + "***.mdb";//这里修改成你的数据库文件名称
8 o9 S3 h3 E. b$ C4 H    CFileFind  fFind;
    if(!fFind.FindFile(lpszFileName))
7 @1 C$ ^6 x& U9 M+ z" u  M# i    {
7 x$ W! V/ _. @# T6 G. d& F1 ?: `        ::AfxMessageBox("没有找到数据库");
, M# X, \8 J+ h9 m) u        exit(0);
    }
    CString szDesc;
    szDesc.Format( "DSN=****;Description=****;DESCRIPTION=The DataBase For ***;FIL=MicrosoftAccess;DEFAULTDIR=%s;DBQ=%s;" ,sPath,lpszFileName);//这里***号可以添加成你的描述

    //添加数据源
6 V0 l( j, I( g, @' G    if(!::SQLConfigDataSource(NULL,ODBC_ADD_DSN, "Microsoft Access Driver (*.mdb)",(LPCSTR)szDesc))
2 D2 U) n4 I& f$ E; u" _# f    {
' K$ U# u& h, P- M* A/ \! [        ::AfxMessageBox("32位ODBC数据源配置错误!");
        exit(0);
- B9 H; p+ c7 G! S9 _, Q9 J0 _    }

三、设置显示模式：
# y& p' H. }! H    很多的程序的移植的运行环境是改变的。有可能你的原来开发环境是1024X768，但是到了那些显示器大于17的时候（分辨率超过你的开发时的分辨率时），程序的显示可能就不好看了。
         DEVMODE lpDevMode;
0 ]2 H' n  |3 S    lpDevMode.dmPelsHeight=768;//Y方向象素点
    lpDevMode.dmPelsWidth=1024;//X方向象素点
. f+ s/ i2 ~9 W# q$ X% B4 k2 m0 M    lpDevMode.dmDisplayFrequency=85;//屏幕刷新率
8 G. B& V8 X+ V3 n* b. O    lpDevMode.dmFields=DM_PELSWIDTH|DM_PELSHEIGHT|DM_DISPLAYFREQUENCY;
, L  Q2 G* A: n2 r& h8 Y" x- E    ChangeDisplaySettings(&lpDevMode,0);
5 S: B% P1 B" O# Z( Q7 g0 j5 z; w
- j5 D, h; v) p3 B- v. ?" J. |四、在你的程序中间加载其他应用程序：
$ a0 ~4 r( y, Q$ t# e0 j7 F    你的程序除了调用到各个模块进行协同工作外（DLL），还有可能调用不是同一个开发环境下的应用程序，比如VC环境下调用DELPHI，VB开发的执行程序，你就可以用到下面的方法（将调用的应用程序拷贝程序目录中）：
         CString sPath;
    GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
    sPath.ReleaseBuffer();
2 ?( f& c% [( e) S: w4 W* q- l    int nPos;
9 C5 f6 A3 f1 {& x. c/ P    nPos=sPath.ReverseFind(’’);
    sPath=sPath.Left(nPos);
    CString lpszFileName = sPath + "***.exe";//这里修改成你的调用应用程序的文件名称
    CFileFind  fFind;
    if(!fFind.FindFile(lpszFileName))
) a; Y( b+ I6 a! P& J+ f4 x' h    {
        ::AfxMessageBox("没有找到调用的应用程序！");
        return FALSE;
. h1 I' H- U7 _    }
    else
        ShellExecute(NULL,NULL,_T("***.exe"),NULL,sPath,NULL);
& D0 l* `- W# _/ h% E& {: w
五、结束进程：
    在你的程序中结束别的程序进程，采用的方法是进行进程列举，然后采用查找的方法进行：
         #include "TLHELP32.H"
         DWORD ProcessID[50];
- R) D5 [3 ]& [6 Z    CString kkk[50];
+ H- P! l2 N9 ^5 W3 |    HANDLE SnapShot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    PROCESSENTRY32* info=new PROCESSENTRY32;
    PROCESSENTRY32 ProcessInfo;//声明进程信息变量
    ProcessInfo.dwSize=sizeof(ProcessInfo);//设置ProcessInfo的大小
    //返回系统中第一个进程的信息
3 q; J7 E6 Y3 d% p) C& ^* L1 R    BOOL Status=Process32First(SnapShot,&rocessInfo);
    int m_nProcess=0;
  ?! b1 C/ W$ D4 q% h% g2 z8 j    while(Status)
    {
2 R2 w( k* Q4 l        CString s,str1,str2;
        s.Format("%d",ProcessInfo.cntThreads);
+ w3 T' S$ B: N! F+ |+ q        str1.Format("%s",ProcessInfo.szExeFile);
4 r; v3 a# l1 k9 r& _/ Z        str1=ProcessInfo.szExeFile;
8 S) x8 y1 `* N2 c8 k2 l        kkk[m_nProcess]=ProcessInfo.szExeFile;
        ProcessID[m_nProcess]=ProcessInfo.th32ProcessID;
; |8 L$ h6 E% K5 X        if(str1=="***.exe")//***.exe就是你要结束的进程的名称
  V# W- N4 z- k* \  q, M, t        {
" e) W+ c% u% T; k* H3 |6 \( O; Y            HANDLE ProcessHandle;
! b5 H% P0 X4 m& u# N2 T) R            ProcessHandle=OpenProcess (PROCESS_ALL_ACCESS,FALSE,ProcessID[m_nProcess]);
+ z# K2 C" i' I6 ~* J+ d0 j            TerminateProcess(ProcessHandle,0);   
2 j: @( l, X1 j0 q        }
        Status=Process32Next(SnapShot,&rocessInfo);
2 s7 V8 T5 a  l6 F8 K        m_nProcess++;
) _/ q. \9 m4 _% J% q# _' f    }
正文完