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 Fehler

    fatal 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" loslassen

    Sleep(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.


Anmelden zum Antworten