Neue Line dann Aktion?

DelphiNoobCoder · Beiträge: 98 Win XP SP1

Hi
also ich versuche gerade bei einem Chat wenn jemand schreibt dass dann eine Aktion ausgefürht wird.

Also wenn InterLan schreibt soll er eine Aktion ausfürhen.
Diesen Code hab ich von DaKirsche bloß wenn ich den auf Timer leg und mit InterLan schreib Passiert nix warum?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var i,a:integer ;
begin
for i := a + 1 to a + 1 do begin
if (pos('InterLan: ',log.lines[i]) > 0) then begin
 keybd_event(91,MapVirtualKey(91,0),0,0);
 keybd_event(91,MapVirtualKey(91,0),KEYEVENTF_KEYUP,0);
a := i;
end;
end;

MFG Martin

Narses · Verfasst: Sa 24.03.07 00:10

Wenn du keine Ahnung hast, was du da abschreibst, dann solltest du das lassen...

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme