Witam.
Próbuje napisać program, który co jakiś czas bedzie sprawdzal czy można otwożyć port COM. Do tego chcialem użyć wątków ponieważ przy otwieraniu COMa program przestaje na chwilkę reagować, ale nawet gdy ich używam program się wiesza. Co robie nie tak ???
procedure TTestTel.Execute;
var
hCOM:THandle;
begin
inherited;
FreeOnTerminate:=True;
hCOM:=CreateFile('COM4',GENERIC_WRITE OR GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
if hCOM<>INVALID_HANDLE_VALUE then
begin
Synchronize(pisz_jest);
end
else
begin
Synchronize(pisz_brak);
end;
CloseHandle(hCOM);
end;
Program sie wiesza gdy uda mu się otwożyć port, jeśli się nie uda idzie gładko :P