Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
uiiuui das klappt !
Prima....sogar mit erstellter .TXT Datei :)
dankeee
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
ich bekomme immernoch nur die Uhrzeit+Datum angezeigt :(
Ich bin ja schon die gane zeit am versuchen das auch mal selbst zu lösen...allerdings nur bei google bis eben.
Nunja und jetzt hab ich das Problem, dass ich ja immernoch diese Zeile als Ergebnis bekomme:
15:44 23.09.2008515:42 23.09.2008
nach der funktion GetTickCount hab ich gesucht...diese scheint nicht die blöde ausgabe zu...
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
okay...das klingt ja nach ungefähr dem gleichen...
Wo kann man denn da seinen Text bzw. die einzelnen Buchstaben eingeben ?
ich denke mal in so einer zeile hier:
if lWithShift then
keybd_event(VK_SHIFT, 0, 0, 0);
VK_SHIFT bedeutet, dass die shifttaste gedrückt werden soll...das ist mir soweit klar aber wozu sind die drei Nullen dahinter ?
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
ups..ja stimmt natürich...das problem hab ich jetzt gelöst....da smit den 5 sekunden pause klappt auch wunderbar.
Aber warum bekomm ich jetzt diese ausgabe: 14:33 23.09.2008514:33 23.09.2008 ?
Das ist doch zum mäuse melken, würde meine omi jetzt sagen :roll:
Nach deinem EDIT:
hhm ich hab jz alles was: "time" hieß unbenannt in "pause"
ich bekomm aber immernoch die zeit+datum...
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
Ich hab mir mal die sleep funktion angeschaut und herausgekommen ist folgendes:
Diese Funktion hab ich versucht einzubauen:
time:=GetTickCount;
while (GetTickCount-time < 5000 ) do
application.ProcessMessages; //sonst friert das Programm ein
und hier nochmal der ganze code nachher hab ich das noch an der falschen stelle eingefügt oder sowas ^^
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
okay werd ich mal machen....aber könnte man nicht eine Pause von ungefähr 5 sekunden einbauen bevor er: TEST schreibt ?
Dann hätte ich also 5 Sekunden Zeit WordPad zu öffnen.
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
okay prima....darauf hätt ich auch selbst kommen können ...^^
also nun klappt das shconmal ohne fehlermeldung, aber wo steht denn jetzt der text: `test`
ich muss doch lediglich z.B. wordpad öffnen und das dan als aktives fenster machen oder ?
Und wie lange hab ich dann vom ausführen unseres kleinen progs zeit das wordpad aktive zu setzten ?
danke
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
oaky nun hab ich beide Proceduren so benannt:
procedure Button1Click(Sender: TObject);
Bekomme aber immernoch n haufen von fehlermeldungen:
Unit1.pas(32): E2003 Undefinierter Bezeichner: 'KStr'
Unit1.pas(40): E2029 Deklaration erwartet, aber Dateiende gefunden
Unit1.pas(12): E2065 Ungenügende Forward- oder External-Deklaration: 'TForm1.Button1Click'
Project1.dpr(5): F2063...
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
hehe woher weißt du das denn ? :oops:
jetzt wissen das ja gleich alle :oops:
Öhh welchen Sourcecode meinst du ? ich denk das war der schon ? brauch man nochwas um das prigramm ausführen zu können ?
ouh man bei Visual Basic war das alles so einfach :?
EDIT: Ich finds übrigens super, dass ich gleich so viele schnelle antworten bekomme
Forum: Win32/Win64 API (native code)
Delphi
by benny1452,
23. Sep 2008
Guten Morgen,
Es geht um einen Text den ich automatisch abtippen lassen möchte.
Jedoch hab ich die sendkey methode in vba schon ausprobier, klappt auch super, nun wollte ich mal fragen ob mir jemand was zu der sendkeymethode hier in delpihi erklären kann...gegoogelt hab ich selber schon...bekomm auch zum beispiel diesen code hier:
procedure SendKeyString(KStr: String);
var
Scan: SHORT;...