Ich hab mir mal die sleep funktion angeschaut und herausgekommen ist folgendes:
Diese Funktion hab ich versucht einzubauen:
Delphi-Quellcode:
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 ^^
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure SendKeyString(KStr:
String);
var
Scan: SHORT;
key: Byte;
i: Integer;
time: Longint;
begin
for i := 0
to length(KStr)
do begin
key := Byte(Kstr[i]);
Scan := MapVirtualKey(key, 0);
keybd_event(key, Scan, 0, 0);
keybd_event(key, Scan, KEYEVENTF_KEYUP, 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
time:= GetTickCount;
while (GetTickCount-time < 5000)
do
application.ProcessMessages;
//sonst friert das Programm ein
SendKeyString('
test');
end;
end.
Ich bekomme aber noch diese fehler hier:
[Pascal Hinweis] Unit1.pas(32): H2164 Variable 'time' wurde deklariert, aber in 'SendKeyString' nicht verwendet
[Pascal Fehler] Unit1.pas(43): E2064 Der linken Seite kann nichts zugewiesen werden
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete
Unit '..\..\Desktop\Unit1.pas' kann nicht compiliert werden
danke nochmal für deine geduld =)