Smukt.
Tak for det
Michael
"Peter Vrist" <peter.vrist@mail.dk> skrev i en meddelelse
news:3e43d980$0$153$edfadb0f@dread16.news.tele.dk...
> Her er er et par funktioner jeg bruger af og til:
>
> Håber det hjælper dig.
>
>
> function ComPorte: TStringList;
> var
> reg : TRegistry;
> ts : TStrings;
> porte : TStringList;
> i: Integer;
> begin
> try
> reg := TRegistry.Create;
> reg.RootKey := HKEY_LOCAL_MACHINE;
> reg.OpenKey('hardware\devicemap\serialcomm',
> false);
> ts := TStringList.Create;
> reg.GetValueNames(ts);
>
> porte:= TStringList.Create;
>
> for i := 0 to ts.Count - 1 do
> porte.Add (reg.ReadString(ts.Strings[i]));
>
>
> result:= porte;
>
> finally
> ts.Free;
> reg.CloseKey;
> reg.free;
> end;
> end;
>
> function ComIsUsed(i: integer): Boolean;
> var
> MyPort : PChar;
> handle: DWORD;
> begin
> MyPort := PChar('COM' +
> IntToStr(i));
> handle := CreateFile(MyPort,
> GENERIC_READ OR GENERIC_WRITE,
> 0,
> nil,
> OPEN_EXISTING,
> 0,0);
>
> if handle = INVALID_HANDLE_VALUE then
> result:= true
> else
> result:= false;
> closehandle(handle);
> end;
>
> Med venlig hilsen
>
> Peter Vrist
>
> "Michael Vilhelmsen" <smom22.remove_this_tekst@tdcadsl.dk> skrev i en
> meddelelse news:fOK%9.52396$Hl6.6685925@news010.worldonline.dk...
> > Hej
> >
> > hvordan finder jeg ud af, hvilke COM porte en maskine har ?
> >
> > I Delphi 5
> >
> > Michael
> >
> >
>
>