TÉMA:
Soros port listázás 2016 dec. 09 08:59 #2136
|
Soros port listázás 2016 dec. 09 08:40 #2135
|
Soros port listázás 2016 dec. 08 14:26 #2133
|
Soros port listázás 2016 dec. 08 14:02 #2132
|
Soros port listázás 2016 dec. 08 13:50 #2131
|
Soros port listázás 2016 dec. 08 13:43 #2130
|
Ha lennél szíves rákeresni a regisztrációs adatbázisban valamelyik COM port nevére (pl.: COM1 vagy akár COM6) akkor megtudhatnád, hogy pontoson hová is van bejegyezve. Mint említettem több helyen is előfordulhat (ennek sok oka lehet, most nem részletezném).
Itt a unit forráskódja, ami nálam működik és egy TMemo-ba írja a listát: unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Registry;
type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
st: TStrings;
i: Integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
// reg.OpenKey('hardware\devicemap\serialcomm', False);
reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion\Ports', False);
st := TStringList.Create;
reg.GetValueNames(st);
for i := 0 to st.Count - 1 do
Memo1.Lines.Add(st.Strings[i]+': '+reg.ReadString(st.Strings[i])); // nevek és értékek kettősponttal elválasztva
Memo1.Lines.Add(''); // üres sor elválasztóként
Memo1.Lines.Add(st.Text); // és most csak a nevek
st.Free;
reg.CloseKey;
reg.Free;
end;
end.
Hogyan kérdezzünk okosan?
/
Mit kell tennünk kérdezés előtt?
-- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64
|
Soros port listázás 2016 dec. 08 13:26 #2129
|
Ezt az elérési utat használva sem töltődtek be a COM portok a ComboBox-ba.
Pontosabban semmi sem töltődött bele.  |
Soros port listázás 2016 dec. 08 12:50 #2128
|
Soros port listázás 2016 dec. 08 12:28 #2127
|
Soros port listázás 2016 dec. 08 11:22 #2126
|
Soros port listázás 2016 dec. 08 10:00 #2125
|
Sziasztok,
A gépemen lévő soros porto(ka)t szeretném fellistázni ComboBox-ba, de az alábbi kód nem hozza fel a COM6-ot, ami jelzem; USB-s eszköz, gondolom virtualis soros porttal. var reg : TRegistry; st : TStrings; i : integer; begin ComboBox1.Clear; reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('hardware\devicemap\serialcomm',false); st := TStringList.Create; reg.GetValueNames(st); for i := 0 to st.Count -1 do begin combobox1.Items.Add(reg.ReadString(st.Strings)); end; st.Free; reg.CloseKey; reg.free; end; A kód rossz, vagy ezeket az eszközöket nem fogom tudni így használni? KöszI! |
