Uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
n : Integer;
List : TStringList;
Reg : TRegistry;
begin
Reg
:= TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.LazyWrite := false; Reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',
false);
List := TStringList.Create;
Reg.GetValueNames(List);
ListBox1.Clear;
for
n := 0 to List.Count-1 do
ListBox1.Items.Add(List.Strings[n]);
Reg.CloseKey;
finally
Reg.Free;
end;
end
ขอบ่นเจ๊ ก.ในคดีหวย 30 ล้านหน่อยเหอะ...แม่มโคตรแถ.
-
ที่เจ๊ แกพูดว่า ลุงจรูญ จำหน้า แผนได้ แต่จำคนขาย หวยไม่ได้.คืออยากจะบอกเจ๊
นะครับ ว่าแผนไปบ้านลูงจรูญ ไปพูดคุย เจรจา ก็ต้องจำได้ครับ
ส่วนจำแม่ค้าขายหวยไม่ไ...
6 years ago
No comments:
Post a Comment