unit1.cpp

来自「C++Builder高级应用开发指南随书源码」· C++ 代码 · 共 58 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString Path;
    Path.SetLength(256);
    Path.SetLength(GetWindowsDirectory(Path.c_str(),Path.Length()));
    ShellExecute(Handle,
                 "open",
                 "Calc.exe",
                 NULL,
                 Path.c_str(),
                 SW_SHOWNORMAL
                 );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    LPSTARTUPINFO  StartupInfo= new STARTUPINFO;
    SECURITY_ATTRIBUTES *psap = new SECURITY_ATTRIBUTES;
    psap-> lpSecurityDescriptor = NULL;
    psap-> bInheritHandle = TRUE;
    psap-> nLength = sizeof (psap);
    SECURITY_ATTRIBUTES *psat = new SECURITY_ATTRIBUTES;
    psat-> lpSecurityDescriptor = NULL;
    psat-> bInheritHandle = TRUE;
    psat-> nLength = sizeof (psat);
    LPPROCESS_INFORMATION  newProcess= new PROCESS_INFORMATION;
    CreateProcess (
        "Calc.exe" ,
        NULL,
        psap,
        psat,
        TRUE,
        CREATE_SEPARATE_WOW_VDM|DETACHED_PROCESS|NORMAL_PRIORITY_CLASS,
        NULL,
        NULL,
        StartupInfo,
        newProcess
    );
}
//---------------------------------------------------------------------------