2 Tasten drück Prgramm. vcl.h macht ärger
-
servus Leute
Das nachfolgende programm ist nicht von mir ich hab es nur ein wenig abgeändert da ich nicht viel Ahnung von C++ und Programmieren hab.
Wenn ich das nun mit meinem Visual C++ unter XP kompiliere komm immer dieser Fehlerfatal error C1083: Include-Datei kann nicht geoeffnet werden: 'vcl.h': No such file or directory
Fehler beim Ausführen von cl.exe.nun wie bekomm ich denn die vcl.h richtig eingebunden, oder benutz ich das flasche programm also Visual C++ dafür ?
Wer kann mir hier weiter helfen ?
Ps: Hät ich fast vergesen das Prgramm soll abwechelnd 2 Tasten drücken. die 2 und die 3.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent Owner)
: TForm(Owner)
{
hWin = FindWindow(NULL, "engine.exe");
Timer1->Interval = 60*1000*StrToFloat(Edit1->Text);
Auswahl = 0;
T_Aktiv = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Auswahl = 1;try
{
Timer1->Interval = 60*1000*StrToFloat(Edit1->Text);
}catch(...)
{
Application->MessageBox("Fehler der Zeiteingabe! \nBitte nur Zahlen eingeben!","Fehleingabe",MB_OK);
}if(T_Aktiv)
{
Timer1->Enabled = false;
T_Aktiv = false;
}else
{
Timer1->Enabled = true;
T_Aktiv = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Auswahl = 2;try
{
Timer1->Interval = 60*1000*StrToFloat(Edit1->Text);
}catch(...)
{
Application->MessageBox("Fehler der Zeiteingabe! \nBitte nur Zahlen eingeben!","Fehleingabe",MB_OK);
}if(T_Aktiv)
{
Timer1->Enabled = false;
T_Aktiv = false;
}else
{
Timer1->Enabled = true;
T_Aktiv = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(Auswahl == 1)
{
/*Key_Left
VK_LEFT Taste Links */
SetForegroundWindow(hWin); // Focus auf gewünschtes Fenster setzen
keybd_event((0x32), 0, 0, NULL); // "taste" drücken
keybd_event((0x32), 0, KEYEVENTF_KEYUP, 0); // "taste" loslassen
}
else
{
if(Auswahl == 2)
{
/*Key_Right
VK_RIGHT Taste Rechts */
SetForegroundWindow(hWin); // Focus auf gewünschtes Fenster setzen
keybd_event((0x31), 0, 0, NULL); // "taste" drücken
keybd_event((0x31), 0, KEYEVENTF_KEYUP, 0); // "taste" loslassen
}else
{
SetForegroundWindow(hWin); // Focus auf gewünschtes Fenster setzen
keybd_event((0x32), 0, 0, NULL); // "taste" drücken
keybd_event((0x32), 0, KEYEVENTF_KEYUP, 0); // "taste" loslassenSleep(ZeitLR);
SetForegroundWindow(hWin); // Focus auf gewünschtes Fenster setzen
keybd_event((0x31), 0, 0, NULL); // "taste" drücken
keybd_event((0x31), 0, KEYEVENTF_KEYUP, 0); // "taste" loslassen
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Auswahl = 3;try
{
Timer1->Interval = 60*1000*StrToFloat(Edit1->Text);
ZeitLR = 60*1000*StrToFloat(LR_LE1->Text);
}catch(...)
{
Application->MessageBox("Fehler der Zeiteingabe! \nBitte nur Zahlen eingeben!","Fehleingabe",MB_OK);
}if(T_Aktiv)
{
Timer1->Enabled = false;
T_Aktiv = false;
}else
{
Timer1->Enabled = true;
T_Aktiv = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Beenden1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------Gruß Baumeister
-
1. benutz bitte code-tags, sonst ists sehr unübersichtlich.
2. das ist ein programm für den borland compiler.. afaik. also funzt das mit VS nicht ohne weiteres.