.lib "system.dll"

setsyswin(x,y,d)
getsyswinx()
getsyswiny()
getsyswind()
setprohigh()
setpronormal()
getpro()
leftklick()
rightklick()
leftklickxy(x,y)
rightklickxy(x,y)

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

#include <vcl.h>
#include <windows.h>

#pragma hdrstop
//---------------------------------------------------------------------------
//   Wichtiger Hinweis zur DLL-Speicherverwaltung, falls die DLL die statische
//   Version der Laufzeitbibliothek (RTL) verwendet:
//
//   Wenn die DLL Funktionen exportiert, die String-Objekte (oder Strukturen/
//   Klassen, die verschachtelte Strings enthalten) als Parameter oder Funktionsergebnisse übergibt,
//   muss die Bibliothek MEMMGR.LIB im DLL-Projekt und anderen Projekten,
//   die die DLL verwenden, vorhanden sein. Sie benötigen MEMMGR.LIB auch dann,
//   wenn andere Projekte, die die DLL verwenden, new- oder delete-Operationen
//   auf Klassen anwenden, die nicht von TObject abgeleitet sind und die aus der DLL exportiert
//   werden. Durch das Hinzufügen von MEMMGR.LIB wird die DLL und deren aufrufende EXEs
//   angewiesen, BORLNDMM.DLL als Speicherverwaltung zu benutzen. In diesem Fall
//   sollte die Datei BORLNDMM.DLL zusammen mit der DLL weitergegeben werden.
//
//   Um die Verwendung von BORLNDMM.DLL, zu vermeiden, sollten String-Informationen als "char *" oder
//   ShortString-Parameter weitergegeben werden.
//
//   Falls die DLL die dynamische Version der RTL verwendet, müssen Sie
//   MEMMGR.LIB nicht explizit angeben.
//---------------------------------------------------------------------------

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
   return 1;
}
//---------------------------------------------------------------------------


// Grafik anweisungen

extern "C" __declspec(dllexport) bool _stdcall setsyswin(int x,int y,int d)
{
DEVMODE sDevMode;
ZeroMemory(&sDevMode, sizeof(DEVMODE));
sDevMode.dmSize = sizeof(DEVMODE);
sDevMode.dmPelsWidth = x;
sDevMode.dmFields |= DM_PELSWIDTH;
sDevMode.dmPelsHeight = y;
sDevMode.dmFields |= DM_PELSHEIGHT;
sDevMode.dmBitsPerPel = d;
sDevMode.dmFields |= DM_BITSPERPEL;
LONG rVal = ChangeDisplaySettings(&sDevMode, CDS_UPDATEREGISTRY);
switch (rVal)
{
case DISP_CHANGE_SUCCESSFUL: return true; //The settings change was successful.
default:
return false;
}
}

extern "C" __declspec(dllexport) int _stdcall getsyswinx()
  {
  return GetSystemMetrics(SM_CXSCREEN);
  }

 extern "C" __declspec(dllexport) int _stdcall getsyswiny()
  {
  return GetSystemMetrics(SM_CYSCREEN);
  }

 extern "C" __declspec(dllexport) int _stdcall getsyswind()
  {
 return GetDeviceCaps(GetDC(GetDesktopWindow()),BITSPIXEL);
  }

//Process funktionen

extern "C" __declspec(dllexport) void setprohigh()
  {
  SetPriorityClass(GetCurrentProcess(), 128);
  }

extern "C" __declspec(dllexport) void _stdcall setpronormal()
  {
  SetPriorityClass(GetCurrentProcess(), 32);
  }

extern "C" __declspec(dllexport) int _stdcall getpro()
  {
  return GetPriorityClass(GetCurrentProcess());
  }


// maus steuerung

extern "C" __declspec(dllexport) void _stdcall leftklick()
  {
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  }

extern "C" __declspec(dllexport) void _stdcall rightklick()
  {
  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
  }

extern "C" __declspec(dllexport) void _stdcall leftklickxy(int x,int y)
  {
  mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MOVE,x,y,0,0);
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  }

extern "C" __declspec(dllexport) void _stdcall rightklickxy(int x,int y)
  {
  mouse_event(MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MOVE,x,y,0,0);
  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
  }

// ende

setsyswin%( x%, y%, d% ) : "_setsyswin@12"