desktop-7hppdjmwin10 平板模式 切换怎么用
点击联系发帖人
时间：2017-04-05 01:43
2219人阅读
经历过Windows 95以及之前版本的用户，都对Windows98之后的Windows可以支持多个显卡惊讶不已，其实从Windows98开始，Windows系统也可以支持多个桌面了，新的API提供了一组使用Desktop桌面和Workstaion工作站的函数：
CloseDesktop
CloseWindowStation
CreateDesktop
CreateWindowStation
EnumDesktopProc
EnumDesktops
EnumDesktopWindows
EnumWindowStationProc
EnumWindowStations
GetProcessWindowStation
GetThreadDesktop
GetUserObjectInformation
GetUserObjectSecurity
OpenDesktop
OpenInputDesktop
OpenWindowStation
SetProcessWindowStation
SetThreadDesktop
SetUserObjectInformation
SetUserObjectSecurity
SwitchDesktop
这些函数通常使用到的机会并不是很多，而且并不是十分具有很好的实用价值，但是，如果如果希望你的程序实现一些特殊的用途，使用这组API则可以事半功倍，比如有很多系统像超市的Pos收银、记费等专业用途的程序，总是希望工作环境尽量的单一，甚至桌面没有开始菜单，各种图标，只有业务软件在运行，通常的做法是修改Windows的设置，将Shell给屏蔽掉，或者利用Windows&策略&来实现，这样作也会带来缺点，不使用业务软件的时候，计算机将没有任何用处。本文中的实例程序就可以很容易的实现这个功能，而不需要对系统作任何修订，当然使用的操作系统必须是Windows98以后的版本。
除了Desktop之外，Workstaion也是Windows98的一个新特征，Workstaion就是工作站，相当于在一个计算机上虚拟出别的工作站，至于他们的用途，用的好的话也许会很广泛，用的不好也许会宕机，我们后面的例子就是使用Workstation实现同时使用多个剪切板的功能。
首先我门来看一下Desktop和Workstation有什么特点。
Desktop在Windows的SDK这样描述：
A desktop is a secure object contained within a window station object. A desktop has a logical display surface and contains windows, menus, and hooks.
这是一个逻辑上的层面，可以容纳其他的窗体、包括独立的Hooks和菜单（开始菜单、桌面快捷菜单等）。我们通常工作的桌面就是Desktop中的一个。
Workstation在Windows的SDK中这样描述：
A window station is a secure object that contains a set of global atoms, a clipboard, and a set of desktop objects.
显然桌面是属于工作站的，这个没有违反客观规律，尽管一个系统中的桌面和工作站都是逻辑上的。工作站可以拥有独立的Atoms序列，剪切板，和桌面等。
上面这一组函数的使用方法，这里不想多说，帮助里面的更加正确和详细，稍微翻阅就可以搞定。
关于Desktop和Workstaion的应用自然限定在上述的范围之内，下面将给出两个简单的应用示范。
一个是Desktop的，这个程序通常情况下启动，没有什么特别的，当使用&/O&参数启动的时候，将会判断运行的桌面，如果程序不是运行在特定的桌面，就会返回，同时创建另一个运行在特定桌面的进程。这个特定的桌面不包括开始菜单，桌面的其他元素，是一个没有Shell的桌面。当程序结束的时候，如果是运行在特定桌面的将会关闭该桌面，也就是返回系统的缺省桌面。
主函数程序文件如下：
#include &vcl.h&
#pragma hdrstop
USERES("Dsktp.res");
USEFORM("NewDsktp.cpp", Form3);
USEUNIT("Ext.cpp");
//--------------------------------------------------------------------------
bool __fastcall CheckApp(TApplication* Application);
bool __fastcall CloseDeskTop();
//--------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR Param, int)
Application-&Initialize();
if(AnsiString(Param).Pos("/O"))
if(!CheckApp(Application))
Application-&CreateForm(__classid(TForm3), &Form3);
Application-&Run();
if(AnsiString(Param).Pos("/O"))
CloseDeskTop();
catch (Exception &exception)
Application-&ShowException(&exception);
这个程序中只有一个窗口单元和一个cpp单元Ext.cpp，其他的和一般程序没有很大的区别，只是增加了两个函数：
bool __fastcall CheckApp(TApplication* Application);和
bool __fastcall CloseDeskTop();
CheckApp用于检测程序是否运行在特定的桌面，CloseDeskTop用于关闭特定的桌面，这两个函数都包含在Ext.cpp中，代码如下：
#include &windows.h&
#include &winnt.h&
#include &vcl.h&
HDESK DsktpH
char* MeDsktp = "MyDeskTop";
//特定的Desktop的名称
bool __fastcall CheckApp(TApplication* Application)//以当前的Application为参数
//函数返回的结果，true代表运行在正确的桌面
SECURITY_DESCRIPTOR
SECURITY_ATTRIBUTES
LPSECURITY_ATTRIBUTES lpsa = NULL;
OSVERSIONINFO
osv.dwOSVersionInfoSize = sizeof(osv);
GetVersionEx(&osv);
if(osv.dwPlatformId == VER_PLATFORM_WIN32_NT)
//NT系统的话，需要指定lpsa参数
InitializeSecurityDescriptor(&sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(&sd, true, NULL, false);
sa.nLength = sizeof(SECURITY_ATTRIBUTES);
sa.bInheritHandle =
sa.lpSecurityDescriptor = &
STARTUPINFO
memset(&si, 0, sizeof(STARTUPINFO));
si.cb = sizeof(STARTUPINFO);
si.dwFlags = STARTF_USESHOWWINDOW |STARTF_USESTDHANDLES;
si.wShowWindow = SW_SHOW;
si.lpDesktop = MeD
PROCESS_INFORMATION
//尝试打开特定的桌面
HDESK DsktpHandle = OpenDesktop(MeDsktp,DF_ALLOWOTHERACCOUNTHOOK,
true,DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if(!DsktpHandle)
//打开失败则创建该桌面
DsktpHandle = CreateDesktop(MeDsktp,NULL,NULL,
DF_ALLOWOTHERACCOUNTHOOK,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS,
if(!DsktpHandle)
ShowMessage("DeskTop Creat Error!");
//特定桌面不存在，当前进程肯定没有运行在特定桌面
//特定的桌面存在，则判断当前的Application是否运行于该桌面
STARTUPINFO SI;
GetStartupInfo(&SI);
//获取启动信息
if(AnsiString(SI.lpDesktop).Pos(MeDsktp))
//比较翕动的Desktop参数
//程序运行在正确（特定的&MyDeskTop&）的桌面
//程序没有运行在特定的桌面
if(Result == false && DsktpHandle)
//特定的桌面存在，并且当前进程不在特定的桌面
//则创建当前进程的一个新的运行副本，同时指定运行在特定的桌面
if( CreateProcess(NULL, Application-&ExeName.c_str(),
lpsa, lpsa, true, 0, 0, 0, &si, &pi))
SwitchDesktop(DsktpHandle);
//切换到特定的桌面，否则新的程序进程将看不到
CloseDesktop(DsktpHandle);
//进程创建失败，则关闭特定桌面
ShowMessage("rocess Creat Error!");
//WinMain根据返回值判断是否结束当前Application
bool __fastcall CloseDeskTop()
//这个返回值没有使用。
HDESK DsktpHandle = OpenDesktop(MeDsktp,DF_ALLOWOTHERACCOUNTHOOK,
true,DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
Result = CloseDesktop(DsktpHandle);
可以将这两个函数添加到任何的应用程序中，而且不需要改变其他代码，只需要在WinMain中按照上面的WinMain调用之，就可以实现程序运行到独立的Desktop桌面。
上面的代码中Form3可以是任意一个Form，都不会对Desktop产生影响，这个例子中Form3中使用了Workstation来实现同时使用多个剪切板。不过需要注意的是，在这个示范程序中，使用了其他Workstation的剪切板后，程序退出的时候，一定要将剪切板清空，否则大家试一下就知道了，呵呵&
Form3的界面如下：
两个列表窗分别用来列表系统中的Workstation和某个Workstation中的Desktop。
右边的Label将会显示当前Application的一个Desktop和Workstation的信息。
中间的两个Edit和Button允许用户输入名称，并按照名称创建新的Desktop和Workstaion
其他的几个Button功能就在Button上写着
右下方的小窗口有8个带有数字的按钮，Form3创建后，会自动创建7个Workstation，和程序本身运行时的Workstation，公有8个Workstation可以共程序选择，点击数字按钮可以将程序切换到相应的Workstaion。
测试效果（仅给出测试剪切板）：
在Edit1中输入1111，选中并复制，然后将Workstation切换到2，然后在Edit1中输入2222，全部选中并复制，然后切换到Workstation 3，在Edit2中粘贴，什么都没有粘贴上，切换回Workstation1，在Edit2中粘贴，结果是1111，切换到Workstation2中同样粘贴，结果是2222。
Form3的代码如下：
#include &vcl.h&
#pragma hdrstop
#include "NewDsktp.h"
#include &clipbrd.hpp&
//--------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
BOOL CALLBACK MyEnumDesktopProc(LPTSTR lpszDesktop,LPARAM lParam);
//--------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
//--------------------------------------------------------------------------
bool CALLBACK MyEnumDesktopProc(LPTSTR lpszDesktop,LPARAM lParam)
if(lParam == 0)
Form3-&ListBox1-&Items-&Add(lpszDesktop);
else if(lParam == 1)
Form3-&ListBox2-&Items-&Add(lpszDesktop);
void __fastcall TForm3::Button2Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("未选择WorkStation");
ListBox1-&Items-&Clear();
EnumDesktops(GetProcessWindowStation(),
(DESKTOPENUMPROC)MyEnumDesktopProc,0);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
ListBox2-&Items-&Clear();
EnumWindowStations((WINSTAENUMPROC)MyEnumDesktopProc,1);
//--------------------------------------------------------------------------
void __fastcall TForm3:istBox2Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("未选择WorkStation");
ListBox1-&Items-&Clear();
Wkst = OpenWindowStation(ListBox2-&Items-&Strings[ListBox2-&ItemIndex].
true,WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES);
EnumDesktops(Wkst,(DESKTOPENUMPROC)MyEnumDesktopProc,0);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("请选择一个Desktop");
HDESK DsktpHandle = OpenDesktop(ListBox1-&Items-&
Strings[ListBox1-&ItemIndex].c_str(),
DF_ALLOWOTHERACCOUNTHOOK,true,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if(!DsktpHandle)
ShowMessage("Open Desktop Error!");
SwitchDesktop(DsktpHandle);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
AnsiString WkstName = Edit1-&T
Button3Click(Sender);
if( ListBox2-&Items-&IndexOf(WkstName) != -1)
ShowMessage("这个Work Station已经存在了！");
HWINSTA hWkst = CreateWindowStation(WkstName.c_str(),NULL,
WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES,NULL);
if(!hWkst)
ShowMessage("Create Wkst Error!");
ListBox2-&Items-&Clear();
EnumWindowStations((WINSTAENUMPROC)MyEnumDesktopProc,1);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
AnsiString DsktpName = Edit2-&T
Button2Click(Sender);
if( ListBox1-&Items-&IndexOf(DsktpName) != -1)
ShowMessage("这个DeskTop已经存在了！");
HDESK DsktpHandle = CreateDesktop(DsktpName.c_str(),NULL,NULL,
DF_ALLOWOTHERACCOUNTHOOK,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL
DESKTOP_JOURNALPLAYBACK
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS,
if(!DsktpHandle)
ShowMessage("DeskTop Creat Error!");
//--------------------------------------------------------------------------
void __fastcall TForm3::Button7Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("请选择一个Desktop");
HDESK DsktpHandle = OpenDesktop(ListBox1-&Items-&
Strings[ListBox1-&ItemIndex].c_str(),
DF_ALLOWOTHERACCOUNTHOOK,true,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if(!DsktpHandle)
ShowMessage("Open Desktop Error!");
CloseDesktop(DsktpHandle);
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("未选择WorkStation");
Wkst = OpenWindowStation(ListBox2-&Items-&
Strings[ListBox2-&ItemIndex].c_str(),
true,WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES);
bool Res = SetProcessWindowStation(Wkst);
ShowMessage("Set Wkst Error!");
//--------------------------------------------------------------------------
void __fastcall TForm3::Button8Click(TObject *Sender)
USEROBJECTFLAGS OS;
char Info[256];
unsigned long ActualL
HANDLE hHandle = GetProcessWindowStation();
if( hHandle && GetUserObjectInformation(hHandle,
UOI_NAME,Info,256,&ActualLength))
Label6-&Caption = I
Label6-&Caption = "Get Info Error!";
hHandle = GetThreadDesktop(GetCurrentThreadId());
if( hHandle && GetUserObjectInformation(hHandle,
UOI_NAME,Info,256,&ActualLength))
Label8-&Caption = I
Label8-&Caption = "Get Info Error!";
hHandle = OpenInputDesktop(DF_ALLOWOTHERACCOUNTHOOK,true,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if( hHandle && GetUserObjectInformation(hHandle,
UOI_NAME,Info,256,&ActualLength))
Label10-&Caption = I
Label10-&Caption = "Get Info Error!";
STARTUPINFO SI;
GetStartupInfo(&SI);
Label12-&Caption = AnsiString(SI.lpDesktop);
//--------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
hTemp = GetProcessWindowStation();
USEROBJECTFLAGS OS;
char Info[256];
unsigned long ActualL
HANDLE hHandle = GetProcessWindowStation();
if( hHandle && GetUserObjectInformation(hTemp,UOI_NAME,Info,256,&ActualLength))
PrivateWkst[0] = I
AnsiString Name = "Station";
for(int i = 1; i & 8; i++)
PrivateWkst[i] = Name + IntToStr(i);
hTemp = CreateWindowStation(PrivateWkst[i].c_str(),NULL,
WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES,NULL);
//--------------------------------------------------------------------------
void __fastcall TForm3::ToolButton1Click(TObject *Sender)
int Index = ((TToolButton*)Sender)-&T
HANDLE Wkst = OpenWindowStation(PrivateWkst[Index].c_str(),
true,WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES);
bool Res = SetProcessWindowStation(Wkst);
ShowMessage("Set Wkst Error!");
Button8Click(Sender);
Button8Click(Sender);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
Clipboard()-&Clear();
//--------------------------------------------------------------------------
头文件如下：
#ifndef NewDsktpH
#define NewDsktpH
//--------------------------------------------------------------------------
#include &Classes.hpp&
#include &Controls.hpp&
#include &StdCtrls.hpp&
#include &Forms.hpp&
#include &ExtCtrls.hpp&
#include &ComCtrls.hpp&
#include &ToolWin.hpp&
//--------------------------------------------------------------------------
class TForm3 : public TForm
__published:
TListBox *ListBox1;
TListBox *ListBox2;
TLabel *Label1;
TLabel *Label2;
TButton *Button2;
TButton *Button3;
TButton *Button4;
TPanel *Panel1;
TEdit *Edit1;
TEdit *Edit2;
TButton *Button5;
TButton *Button6;
TLabel *Label3;
TLabel *Label4;
TButton *Button7;
TButton *Button1;
TLabel *Label5;
TLabel *Label6;
TLabel *Label7;
TLabel *Label8;
TLabel *Label9;
TLabel *Label10;
TLabel *Label11;
TLabel *Label12;
TButton *Button8;
TPanel *Panel2;
TToolBar *ToolBar1;
TToolButton *ToolButton1;
TToolButton *ToolButton2;
TToolButton *ToolButton3;
TToolButton *ToolButton4;
TToolButton *ToolButton5;
TToolButton *ToolButton6;
TToolButton *ToolButton7;
TToolButton *ToolButton8;
TLabel *Label13;
TButton *Button9;
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall ListBox2Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
void __fastcall Button6Click(TObject *Sender);
void __fastcall Button7Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button8Click(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall ToolButton1Click(TObject *Sender);
void __fastcall Button9Click(TObject *Sender);
AnsiString
PrivateWkst[8];
__fastcall TForm3(TComponent* Owner);
//--------------------------------------------------------------------------
extern PACKAGE TForm3 *Form3;
//--------------------------------------------------------------------------
Dfm文件如下：
object Form3: TForm3
Left = 325
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Run On New DeskTop'#39's Form'
ClientHeight = 366
ClientWidth = 622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 208
Width = 66
Height = 12
Caption = 'Desktop列表'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label2: TLabel
Width = 90
Height = 12
Caption = 'Workstation列表'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label5: TLabel
Left = 400
Width = 120
Height = 12
Caption = '当前进程的WokStation'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label6: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label7: TLabel
Left = 400
Width = 90
Height = 12
Caption = '当前线程Desktop'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label8: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label9: TLabel
Left = 400
Width = 108
Height = 12
Caption = '当前Input的DeskTop'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label10: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label11: TLabel
Left = 400
Width = 102
Height = 12
Caption = '程序的启动DeskTop'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label12: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label13: TLabel
Left = 520
Width = 90
Height = 12
Caption = '切换WorkStation'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object ListBox1: TListBox
Left = 208
Width = 177
Height = 161
ItemHeight = 13
TabOrder = 0
object ListBox2: TListBox
Width = 177
Height = 161
ItemHeight = 13
TabOrder = 1
OnClick = ListBox2Click
object Button2: TButton
Width = 75
Height = 25
Caption = '枚举DskTp'
TabOrder = 2
OnClick = Button2Click
object Button3: TButton
Left = 112
Width = 75
Height = 25
Caption = '枚举Wkst'
TabOrder = 3
OnClick = Button3Click
object Button4: TButton
Left = 208
Width = 75
Height = 25
Caption = '切换DskTp'
TabOrder = 4
OnClick = Button4Click
object Panel1: TPanel
Width = 369
Height = 113
BevelInner = bvSpace
BevelOuter = bvLowered
TabOrder = 5
object Label3: TLabel
Width = 78
Height = 12
Caption = 'Desktop名称：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label4: TLabel
Width = 102
Height = 12
Caption = 'Workstation名称：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Edit1: TEdit
Left = 120
Width = 121
Height = 21
TabOrder = 0
object Edit2: TEdit
Left = 120
Width = 121
Height = 21
TabOrder = 1
object Button5: TButton
Left = 272
Width = 75
Height = 25
Caption = '创建Wkst'
TabOrder = 2
OnClick = Button5Click
object Button6: TButton
Left = 272
Width = 75
Height = 25
Caption = '创建Dsktp'
TabOrder = 3
OnClick = Button6Click
object Button7: TButton
Left = 304
Width = 75
Height = 25
Caption = '关闭Dsktp'
TabOrder = 6
OnClick = Button7Click
object Button1: TButton
Left = 408
Width = 75
Height = 25
Caption = '切换Wkst'
Enabled = False
TabOrder = 7
OnClick = Button1Click
object Button8: TButton
Left = 408
Width = 75
Height = 25
Caption = '获取信息'
TabOrder = 8
OnClick = Button8Click
object Panel2: TPanel
Left = 520
Width = 77
Height = 51
BevelInner = bvSpace
BevelOuter = bvLowered
TabOrder = 9
object ToolBar1: TToolBar
Width = 73
Height = 47
Align = alNone
ButtonHeight = 23
ButtonWidth = 14
Caption = 'ToolBar1'
EdgeBorders = []
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
AutoSize = True
Caption = '1'
Down = True
Grouped = True
ImageIndex = 0
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton2: TToolButton
AutoSize = True
Caption = '2'
Grouped = True
ImageIndex = 1
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton3: TToolButton
AutoSize = True
Caption = '3'
Grouped = True
ImageIndex = 2
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton4: TToolButton
AutoSize = True
Caption = '4'
Grouped = True
ImageIndex = 3
Wrap = True
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton5: TToolButton
AutoSize = True
Caption = '5'
Grouped = True
ImageIndex = 4
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton6: TToolButton
AutoSize = True
Caption = '6'
Grouped = True
ImageIndex = 5
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton7: TToolButton
AutoSize = True
Caption = '7'
Grouped = True
ImageIndex = 6
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton8: TToolButton
AutoSize = True
Caption = '8'
Grouped = True
ImageIndex = 7
Style = tbsCheck
OnClick = ToolButton1Click
object Button9: TButton
Left = 408
Width = 75
Height = 25
Caption = '清空剪切板'
TabOrder = 10
OnClick = Button9Click
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：617543次
积分：7481
积分：7481
排名：第2434名
原创：115篇
转载：210篇
评论：104条
本人家乡是宁德，现在福州工作. 如果您觉得这系列的文章对你有所帮助，
欢迎打赏。
支付宝打赏
(1)(1)(4)(4)(6)(2)(2)(4)(10)(4)(3)(4)(13)(1)(1)(15)(1)(5)(1)(1)(2)(1)(1)(7)(1)(2)(14)(37)(1)(8)(3)(2)(4)(2)(1)(12)(8)(2)(1)(2)(6)(4)(9)(6)(17)(1)(4)(6)(2)(23)(7)(4)(3)(2)(6)(2)(2)(1)(2)(1)(4)(1)(1)(3)(18)}
经历过Windows 95以及之前版本的用户，都对Windows98之后的Windows可以支持多个显卡惊讶不已，其实从Windows98开始，Windows系统也可以支持多个桌面了，新的API提供了一组使用Desktop桌面和Workstaion工作站的函数：
CloseDesktop
CloseWindowStation
CreateDesktop
CreateWindowStation
EnumDesktopProc
EnumDesktops
EnumDesktopWindows
EnumWindowStationProc
EnumWindowStations
GetProcessWindowStation
GetThreadDesktop
GetUserObjectInformation
GetUserObjectSecurity
OpenDesktop
OpenInputDesktop
OpenWindowStation
SetProcessWindowStation
SetThreadDesktop
SetUserObjectInformation
SetUserObjectSecurity
SwitchDesktop
这些函数通常使用到的机会并不是很多，而且并不是十分具有很好的实用价值，但是，如果如果希望你的程序实现一些特殊的用途，使用这组API则可以事半功倍，比如有很多系统像超市的Pos收银、记费等专业用途的程序，总是希望工作环境尽量的单一，甚至桌面没有开始菜单，各种图标，只有业务软件在运行，通常的做法是修改Windows的设置，将Shell给屏蔽掉，或者利用Windows&策略&来实现，这样作也会带来缺点，不使用业务软件的时候，计算机将没有任何用处。本文中的实例程序就可以很容易的实现这个功能，而不需要对系统作任何修订，当然使用的操作系统必须是Windows98以后的版本。
除了Desktop之外，Workstaion也是Windows98的一个新特征，Workstaion就是工作站，相当于在一个计算机上虚拟出别的工作站，至于他们的用途，用的好的话也许会很广泛，用的不好也许会宕机，我们后面的例子就是使用Workstation实现同时使用多个剪切板的功能。
首先我门来看一下Desktop和Workstation有什么特点。
Desktop在Windows的SDK这样描述：
A desktop is a secure object contained within a window station object. A desktop has a logical display surface and contains windows, menus, and hooks.
这是一个逻辑上的层面，可以容纳其他的窗体、包括独立的Hooks和菜单（开始菜单、桌面快捷菜单等）。我们通常工作的桌面就是Desktop中的一个。
Workstation在Windows的SDK中这样描述：
A window station is a secure object that contains a set of global atoms, a clipboard, and a set of desktop objects.
显然桌面是属于工作站的，这个没有违反客观规律，尽管一个系统中的桌面和工作站都是逻辑上的。工作站可以拥有独立的Atoms序列，剪切板，和桌面等。
上面这一组函数的使用方法，这里不想多说，帮助里面的更加正确和详细，稍微翻阅就可以搞定。
关于Desktop和Workstaion的应用自然限定在上述的范围之内，下面将给出两个简单的应用示范。
一个是Desktop的，这个程序通常情况下启动，没有什么特别的，当使用&/O&参数启动的时候，将会判断运行的桌面，如果程序不是运行在特定的桌面，就会返回，同时创建另一个运行在特定桌面的进程。这个特定的桌面不包括开始菜单，桌面的其他元素，是一个没有Shell的桌面。当程序结束的时候，如果是运行在特定桌面的将会关闭该桌面，也就是返回系统的缺省桌面。
主函数程序文件如下：
#include &vcl.h&
#pragma hdrstop
USERES("Dsktp.res");
USEFORM("NewDsktp.cpp", Form3);
USEUNIT("Ext.cpp");
//--------------------------------------------------------------------------
bool __fastcall CheckApp(TApplication* Application);
bool __fastcall CloseDeskTop();
//--------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR Param, int)
Application-&Initialize();
if(AnsiString(Param).Pos("/O"))
if(!CheckApp(Application))
Application-&CreateForm(__classid(TForm3), &Form3);
Application-&Run();
if(AnsiString(Param).Pos("/O"))
CloseDeskTop();
catch (Exception &exception)
Application-&ShowException(&exception);
这个程序中只有一个窗口单元和一个cpp单元Ext.cpp，其他的和一般程序没有很大的区别，只是增加了两个函数：
bool __fastcall CheckApp(TApplication* Application);和
bool __fastcall CloseDeskTop();
CheckApp用于检测程序是否运行在特定的桌面，CloseDeskTop用于关闭特定的桌面，这两个函数都包含在Ext.cpp中，代码如下：
#include &windows.h&
#include &winnt.h&
#include &vcl.h&
HDESK DsktpH
char* MeDsktp = "MyDeskTop";
//特定的Desktop的名称
bool __fastcall CheckApp(TApplication* Application)//以当前的Application为参数
//函数返回的结果，true代表运行在正确的桌面
SECURITY_DESCRIPTOR
SECURITY_ATTRIBUTES
LPSECURITY_ATTRIBUTES lpsa = NULL;
OSVERSIONINFO
osv.dwOSVersionInfoSize = sizeof(osv);
GetVersionEx(&osv);
if(osv.dwPlatformId == VER_PLATFORM_WIN32_NT)
//NT系统的话，需要指定lpsa参数
InitializeSecurityDescriptor(&sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(&sd, true, NULL, false);
sa.nLength = sizeof(SECURITY_ATTRIBUTES);
sa.bInheritHandle =
sa.lpSecurityDescriptor = &
STARTUPINFO
memset(&si, 0, sizeof(STARTUPINFO));
si.cb = sizeof(STARTUPINFO);
si.dwFlags = STARTF_USESHOWWINDOW |STARTF_USESTDHANDLES;
si.wShowWindow = SW_SHOW;
si.lpDesktop = MeD
PROCESS_INFORMATION
//尝试打开特定的桌面
HDESK DsktpHandle = OpenDesktop(MeDsktp,DF_ALLOWOTHERACCOUNTHOOK,
true,DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if(!DsktpHandle)
//打开失败则创建该桌面
DsktpHandle = CreateDesktop(MeDsktp,NULL,NULL,
DF_ALLOWOTHERACCOUNTHOOK,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS,
if(!DsktpHandle)
ShowMessage("DeskTop Creat Error!");
//特定桌面不存在，当前进程肯定没有运行在特定桌面
//特定的桌面存在，则判断当前的Application是否运行于该桌面
STARTUPINFO SI;
GetStartupInfo(&SI);
//获取启动信息
if(AnsiString(SI.lpDesktop).Pos(MeDsktp))
//比较翕动的Desktop参数
//程序运行在正确（特定的&MyDeskTop&）的桌面
//程序没有运行在特定的桌面
if(Result == false && DsktpHandle)
//特定的桌面存在，并且当前进程不在特定的桌面
//则创建当前进程的一个新的运行副本，同时指定运行在特定的桌面
if( CreateProcess(NULL, Application-&ExeName.c_str(),
lpsa, lpsa, true, 0, 0, 0, &si, &pi))
SwitchDesktop(DsktpHandle);
//切换到特定的桌面，否则新的程序进程将看不到
CloseDesktop(DsktpHandle);
//进程创建失败，则关闭特定桌面
ShowMessage("rocess Creat Error!");
//WinMain根据返回值判断是否结束当前Application
bool __fastcall CloseDeskTop()
//这个返回值没有使用。
HDESK DsktpHandle = OpenDesktop(MeDsktp,DF_ALLOWOTHERACCOUNTHOOK,
true,DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
Result = CloseDesktop(DsktpHandle);
可以将这两个函数添加到任何的应用程序中，而且不需要改变其他代码，只需要在WinMain中按照上面的WinMain调用之，就可以实现程序运行到独立的Desktop桌面。
上面的代码中Form3可以是任意一个Form，都不会对Desktop产生影响，这个例子中Form3中使用了Workstation来实现同时使用多个剪切板。不过需要注意的是，在这个示范程序中，使用了其他Workstation的剪切板后，程序退出的时候，一定要将剪切板清空，否则大家试一下就知道了，呵呵&
Form3的界面如下：
两个列表窗分别用来列表系统中的Workstation和某个Workstation中的Desktop。
右边的Label将会显示当前Application的一个Desktop和Workstation的信息。
中间的两个Edit和Button允许用户输入名称，并按照名称创建新的Desktop和Workstaion
其他的几个Button功能就在Button上写着
右下方的小窗口有8个带有数字的按钮，Form3创建后，会自动创建7个Workstation，和程序本身运行时的Workstation，公有8个Workstation可以共程序选择，点击数字按钮可以将程序切换到相应的Workstaion。
测试效果（仅给出测试剪切板）：
在Edit1中输入1111，选中并复制，然后将Workstation切换到2，然后在Edit1中输入2222，全部选中并复制，然后切换到Workstation 3，在Edit2中粘贴，什么都没有粘贴上，切换回Workstation1，在Edit2中粘贴，结果是1111，切换到Workstation2中同样粘贴，结果是2222。
Form3的代码如下：
#include &vcl.h&
#pragma hdrstop
#include "NewDsktp.h"
#include &clipbrd.hpp&
//--------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
BOOL CALLBACK MyEnumDesktopProc(LPTSTR lpszDesktop,LPARAM lParam);
//--------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
//--------------------------------------------------------------------------
bool CALLBACK MyEnumDesktopProc(LPTSTR lpszDesktop,LPARAM lParam)
if(lParam == 0)
Form3-&ListBox1-&Items-&Add(lpszDesktop);
else if(lParam == 1)
Form3-&ListBox2-&Items-&Add(lpszDesktop);
void __fastcall TForm3::Button2Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("未选择WorkStation");
ListBox1-&Items-&Clear();
EnumDesktops(GetProcessWindowStation(),
(DESKTOPENUMPROC)MyEnumDesktopProc,0);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
ListBox2-&Items-&Clear();
EnumWindowStations((WINSTAENUMPROC)MyEnumDesktopProc,1);
//--------------------------------------------------------------------------
void __fastcall TForm3:istBox2Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("未选择WorkStation");
ListBox1-&Items-&Clear();
Wkst = OpenWindowStation(ListBox2-&Items-&Strings[ListBox2-&ItemIndex].
true,WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES);
EnumDesktops(Wkst,(DESKTOPENUMPROC)MyEnumDesktopProc,0);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("请选择一个Desktop");
HDESK DsktpHandle = OpenDesktop(ListBox1-&Items-&
Strings[ListBox1-&ItemIndex].c_str(),
DF_ALLOWOTHERACCOUNTHOOK,true,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if(!DsktpHandle)
ShowMessage("Open Desktop Error!");
SwitchDesktop(DsktpHandle);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
AnsiString WkstName = Edit1-&T
Button3Click(Sender);
if( ListBox2-&Items-&IndexOf(WkstName) != -1)
ShowMessage("这个Work Station已经存在了！");
HWINSTA hWkst = CreateWindowStation(WkstName.c_str(),NULL,
WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES,NULL);
if(!hWkst)
ShowMessage("Create Wkst Error!");
ListBox2-&Items-&Clear();
EnumWindowStations((WINSTAENUMPROC)MyEnumDesktopProc,1);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
AnsiString DsktpName = Edit2-&T
Button2Click(Sender);
if( ListBox1-&Items-&IndexOf(DsktpName) != -1)
ShowMessage("这个DeskTop已经存在了！");
HDESK DsktpHandle = CreateDesktop(DsktpName.c_str(),NULL,NULL,
DF_ALLOWOTHERACCOUNTHOOK,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL
DESKTOP_JOURNALPLAYBACK
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS,
if(!DsktpHandle)
ShowMessage("DeskTop Creat Error!");
//--------------------------------------------------------------------------
void __fastcall TForm3::Button7Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("请选择一个Desktop");
HDESK DsktpHandle = OpenDesktop(ListBox1-&Items-&
Strings[ListBox1-&ItemIndex].c_str(),
DF_ALLOWOTHERACCOUNTHOOK,true,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if(!DsktpHandle)
ShowMessage("Open Desktop Error!");
CloseDesktop(DsktpHandle);
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
if(ListBox2-&ItemIndex == -1)
ShowMessage("未选择WorkStation");
Wkst = OpenWindowStation(ListBox2-&Items-&
Strings[ListBox2-&ItemIndex].c_str(),
true,WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES);
bool Res = SetProcessWindowStation(Wkst);
ShowMessage("Set Wkst Error!");
//--------------------------------------------------------------------------
void __fastcall TForm3::Button8Click(TObject *Sender)
USEROBJECTFLAGS OS;
char Info[256];
unsigned long ActualL
HANDLE hHandle = GetProcessWindowStation();
if( hHandle && GetUserObjectInformation(hHandle,
UOI_NAME,Info,256,&ActualLength))
Label6-&Caption = I
Label6-&Caption = "Get Info Error!";
hHandle = GetThreadDesktop(GetCurrentThreadId());
if( hHandle && GetUserObjectInformation(hHandle,
UOI_NAME,Info,256,&ActualLength))
Label8-&Caption = I
Label8-&Caption = "Get Info Error!";
hHandle = OpenInputDesktop(DF_ALLOWOTHERACCOUNTHOOK,true,
DESKTOP_CREATEMENU | DESKTOP_CREATEWINDOW |
DESKTOP_ENUMERATE | DESKTOP_HOOKCONTROL |
DESKTOP_JOURNALPLAYBACK |
DESKTOP_JOURNALRECORD | DESKTOP_READOBJECTS |
DESKTOP_SWITCHDESKTOP | DESKTOP_WRITEOBJECTS);
if( hHandle && GetUserObjectInformation(hHandle,
UOI_NAME,Info,256,&ActualLength))
Label10-&Caption = I
Label10-&Caption = "Get Info Error!";
STARTUPINFO SI;
GetStartupInfo(&SI);
Label12-&Caption = AnsiString(SI.lpDesktop);
//--------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
hTemp = GetProcessWindowStation();
USEROBJECTFLAGS OS;
char Info[256];
unsigned long ActualL
HANDLE hHandle = GetProcessWindowStation();
if( hHandle && GetUserObjectInformation(hTemp,UOI_NAME,Info,256,&ActualLength))
PrivateWkst[0] = I
AnsiString Name = "Station";
for(int i = 1; i & 8; i++)
PrivateWkst[i] = Name + IntToStr(i);
hTemp = CreateWindowStation(PrivateWkst[i].c_str(),NULL,
WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES,NULL);
//--------------------------------------------------------------------------
void __fastcall TForm3::ToolButton1Click(TObject *Sender)
int Index = ((TToolButton*)Sender)-&T
HANDLE Wkst = OpenWindowStation(PrivateWkst[Index].c_str(),
true,WINSTA_ACCESSCLIPBOARD | WINSTA_ACCESSGLOBALATOMS |
WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |
WINSTA_ENUMERATE | WINSTA_EXITWINDOWS |
WINSTA_READATTRIBUTES | WINSTA_READSCREEN |
WINSTA_WRITEATTRIBUTES);
bool Res = SetProcessWindowStation(Wkst);
ShowMessage("Set Wkst Error!");
Button8Click(Sender);
Button8Click(Sender);
//--------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
Clipboard()-&Clear();
//--------------------------------------------------------------------------
头文件如下：
#ifndef NewDsktpH
#define NewDsktpH
//--------------------------------------------------------------------------
#include &Classes.hpp&
#include &Controls.hpp&
#include &StdCtrls.hpp&
#include &Forms.hpp&
#include &ExtCtrls.hpp&
#include &ComCtrls.hpp&
#include &ToolWin.hpp&
//--------------------------------------------------------------------------
class TForm3 : public TForm
__published:
TListBox *ListBox1;
TListBox *ListBox2;
TLabel *Label1;
TLabel *Label2;
TButton *Button2;
TButton *Button3;
TButton *Button4;
TPanel *Panel1;
TEdit *Edit1;
TEdit *Edit2;
TButton *Button5;
TButton *Button6;
TLabel *Label3;
TLabel *Label4;
TButton *Button7;
TButton *Button1;
TLabel *Label5;
TLabel *Label6;
TLabel *Label7;
TLabel *Label8;
TLabel *Label9;
TLabel *Label10;
TLabel *Label11;
TLabel *Label12;
TButton *Button8;
TPanel *Panel2;
TToolBar *ToolBar1;
TToolButton *ToolButton1;
TToolButton *ToolButton2;
TToolButton *ToolButton3;
TToolButton *ToolButton4;
TToolButton *ToolButton5;
TToolButton *ToolButton6;
TToolButton *ToolButton7;
TToolButton *ToolButton8;
TLabel *Label13;
TButton *Button9;
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall ListBox2Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
void __fastcall Button6Click(TObject *Sender);
void __fastcall Button7Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button8Click(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall ToolButton1Click(TObject *Sender);
void __fastcall Button9Click(TObject *Sender);
AnsiString
PrivateWkst[8];
__fastcall TForm3(TComponent* Owner);
//--------------------------------------------------------------------------
extern PACKAGE TForm3 *Form3;
//--------------------------------------------------------------------------
Dfm文件如下：
object Form3: TForm3
Left = 325
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Run On New DeskTop'#39's Form'
ClientHeight = 366
ClientWidth = 622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 208
Width = 66
Height = 12
Caption = 'Desktop列表'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label2: TLabel
Width = 90
Height = 12
Caption = 'Workstation列表'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label5: TLabel
Left = 400
Width = 120
Height = 12
Caption = '当前进程的WokStation'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label6: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label7: TLabel
Left = 400
Width = 90
Height = 12
Caption = '当前线程Desktop'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label8: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label9: TLabel
Left = 400
Width = 108
Height = 12
Caption = '当前Input的DeskTop'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label10: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label11: TLabel
Left = 400
Width = 102
Height = 12
Caption = '程序的启动DeskTop'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label12: TLabel
Left = 400
Height = 12
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label13: TLabel
Left = 520
Width = 90
Height = 12
Caption = '切换WorkStation'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object ListBox1: TListBox
Left = 208
Width = 177
Height = 161
ItemHeight = 13
TabOrder = 0
object ListBox2: TListBox
Width = 177
Height = 161
ItemHeight = 13
TabOrder = 1
OnClick = ListBox2Click
object Button2: TButton
Width = 75
Height = 25
Caption = '枚举DskTp'
TabOrder = 2
OnClick = Button2Click
object Button3: TButton
Left = 112
Width = 75
Height = 25
Caption = '枚举Wkst'
TabOrder = 3
OnClick = Button3Click
object Button4: TButton
Left = 208
Width = 75
Height = 25
Caption = '切换DskTp'
TabOrder = 4
OnClick = Button4Click
object Panel1: TPanel
Width = 369
Height = 113
BevelInner = bvSpace
BevelOuter = bvLowered
TabOrder = 5
object Label3: TLabel
Width = 78
Height = 12
Caption = 'Desktop名称：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label4: TLabel
Width = 102
Height = 12
Caption = 'Workstation名称：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Edit1: TEdit
Left = 120
Width = 121
Height = 21
TabOrder = 0
object Edit2: TEdit
Left = 120
Width = 121
Height = 21
TabOrder = 1
object Button5: TButton
Left = 272
Width = 75
Height = 25
Caption = '创建Wkst'
TabOrder = 2
OnClick = Button5Click
object Button6: TButton
Left = 272
Width = 75
Height = 25
Caption = '创建Dsktp'
TabOrder = 3
OnClick = Button6Click
object Button7: TButton
Left = 304
Width = 75
Height = 25
Caption = '关闭Dsktp'
TabOrder = 6
OnClick = Button7Click
object Button1: TButton
Left = 408
Width = 75
Height = 25
Caption = '切换Wkst'
Enabled = False
TabOrder = 7
OnClick = Button1Click
object Button8: TButton
Left = 408
Width = 75
Height = 25
Caption = '获取信息'
TabOrder = 8
OnClick = Button8Click
object Panel2: TPanel
Left = 520
Width = 77
Height = 51
BevelInner = bvSpace
BevelOuter = bvLowered
TabOrder = 9
object ToolBar1: TToolBar
Width = 73
Height = 47
Align = alNone
ButtonHeight = 23
ButtonWidth = 14
Caption = 'ToolBar1'
EdgeBorders = []
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
AutoSize = True
Caption = '1'
Down = True
Grouped = True
ImageIndex = 0
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton2: TToolButton
AutoSize = True
Caption = '2'
Grouped = True
ImageIndex = 1
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton3: TToolButton
AutoSize = True
Caption = '3'
Grouped = True
ImageIndex = 2
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton4: TToolButton
AutoSize = True
Caption = '4'
Grouped = True
ImageIndex = 3
Wrap = True
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton5: TToolButton
AutoSize = True
Caption = '5'
Grouped = True
ImageIndex = 4
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton6: TToolButton
AutoSize = True
Caption = '6'
Grouped = True
ImageIndex = 5
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton7: TToolButton
AutoSize = True
Caption = '7'
Grouped = True
ImageIndex = 6
Style = tbsCheck
OnClick = ToolButton1Click
object ToolButton8: TToolButton
AutoSize = True
Caption = '8'
Grouped = True
ImageIndex = 7
Style = tbsCheck
OnClick = ToolButton1Click
object Button9: TButton
Left = 408
Width = 75
Height = 25
Caption = '清空剪切板'
TabOrder = 10
OnClick = Button9Click
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：617543次
积分：7481
积分：7481
排名：第2434名
原创：115篇
转载：210篇
评论：104条
本人家乡是宁德，现在福州工作. 如果您觉得这系列的文章对你有所帮助，
欢迎打赏。
支付宝打赏
(1)(1)(4)(4)(6)(2)(2)(4)(10)(4)(3)(4)(13)(1)(1)(15)(1)(5)(1)(1)(2)(1)(1)(7)(1)(2)(14)(37)(1)(8)(3)(2)(4)(2)(1)(12)(8)(2)(1)(2)(6)(4)(9)(6)(17)(1)(4)(6)(2)(23)(7)(4)(3)(2)(6)(2)(2)(1)(2)(1)(4)(1)(1)(3)(18)}
我要回帖
更多推荐
- ·初三现在年轻人学什么技术好比较好呢？
- ·进行查漏补缺的杭州中考杭州初中复读学校有哪些没有呢？
- ·在湖南农业大学是名校吗读本科的话，大家知道总体深造率有多少啊？
- ·在湖南省属高校中，湖南农业大学算名校吗能排到什么位次？
- ·有没有高效率好用的法律检索app工具，检索精准度高一点的？
- ·小米手柄连接苹果教程 苹果6 可以玩吗
- ·知道的说说心里话作文共27篇oppo27手机多少钱
- ·苹果重力感应坏了侧面重力按可以换成右边吗
- ·冰箱外接新飞冰箱温控器接线图插座图片
- ·天猫淘宝内部淘宝客优惠券机器人招兼职，想和我一起在群里用机器人全自动发产品吗？ 一部手机，一点时间，一点人脉，
- ·怎样把监控录像连接到手机连接硬盘录像机上
- ·哪几个电子元件决定空燃比分析仪gzyro的比例的 ？
- ·大朋htc vivee多个设备可否组成一个超大的游戏区
- ·美版ipad pro 4g是全网通吗
- ·求怎么得到appendc 开辟内存一段新内存的地址
- ·腾龙镜头这款镜头是哪里产的呢
- ·途安l 330是选280还是选330，开空调行驶有什么区别
- ·T49是不是左右移动跳跃射击射击很不准
- ·我的手机游戏玩家手机号
- ·desktop-7hppdjmwin10 平板模式 切换怎么用
- ·win7系统自带的显卡驱动动怎么样
- ·大学学生会有哪些部门分哪几个部门
- ·卫生间污水提升装置器怎么选型？
- ·注册给排水工程师今年有考试吗，价格三年多少钱？
- ·tunnel是什么意思 《法语助手破解》法汉
- ·绵阳家教中心高三化学家教价格是公开的吗，哪里比较实在？
- ·电梯应急平层装置厂家层门安全装置报告出自哪个建筑工程表格
- ·我女儿在上厕所时泰迪髌骨脱位位，现膝盖肿胀，可以热敷吗
- ·招聘保洁员怎么写第一季度总结怎么写
- ·blue-skysky123.org是什么意思思及用法
- ·铜陵学院的铜陵环境怎么样样
- ·关于我国的宪法，下列今日说法宪法错误的是（）
- ·马上要高考了，我要怎样复习才能正⒒右嗷蚴浅7
- ·职称计算机会计职称有哪些等级级
- ·请问一下生了宝宝，检查说有纳什甲状舌管囊肿不做行吗，请问不做手术，会怎样
