Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
24. Okt 2006
so, mit dem letzten code klappt alles hervorragend,
jedoch sind noch 3 veränderungen zu machen:
procedure Delay(Milliseconds: Integer);
var
Tick: DWORD;
begin
Tick := GetTickCount + DWORD(Milliseconds);
Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
24. Okt 2006
moin luckie,
trotz sleep(1) immer noch volle cpu auslastung...
mfg Jonny
Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
24. Okt 2006
habe ich gerade versucht, dass geht *g*. aber leider bringt der code:
procedure Delay(Milliseconds: Integer);
{by Hagen Redmann}
var
Tick: DWORD;
// Event: THandle;
begin
// Event := CreateEvent(nil, False, False, nil);
Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
24. Okt 2006
moin klaus,
ich kann leider nicht in meinem service application.processmessages benutzen :(
mfg Jonny
Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
23. Okt 2006
kurzer nachtrag:
ich habe mir gerade den vorgeschlagenen thread von klaus durchgelesen, aber auch die folgende prozedur
procedure Delay(Milliseconds: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := GetCurrentThread;
Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
23. Okt 2006
servus,
also mein service hat keine oberfläche, und das hndlArr wird wie folgt befüllt:
hndlarr := Event1.Handle;
hndlarr := Event2.Handle;
den vorgeschlagene thread lese ich mir gleich mal durch.
Forum: Object-Pascal / Delphi-Language
Delphi
by JonnyGuitar,
23. Okt 2006
tach zusammen,
ich benutze in einem service folgende wait prozedure:
procedure wait;
var
res : Cardinal;
s : String;
begin