1、讲讲思路也行?
2、我知道好像利用Windows外部函数可以来判断,现在我不知道这两个外部函数的具体用法?有谁能提供API函数使用说明之类的电子文档([email protected])
3、或者有无其它好的办法?
2、我知道好像利用Windows外部函数可以来判断,现在我不知道这两个外部函数的具体用法?有谁能提供API函数使用说明之类的电子文档([email protected])
3、或者有无其它好的办法?
解决方案 »
- 点TBitBtn控件,如何在空间右下角弹出TPopupMenu,位置总对不准
- DBGrid怎么支持鼠标中键上下移动记录?
- 为什么设置Form最大化时(Form.windowState:=wxMaxMized),有时可见任务栏有时又全屏连任务栏也见不着,我希望任务栏出现。可以吗?
- 新手请问:我怎么样才能实现:执行了Query.open,但与之相连的DBGrid却不显示出查询结果出来?详细见内容。
- 请教游戏中热键呼出的问题!!(不够我再加分)
- 大侠帮助怎样在delphi5下操作xml
- 如何屏弊掉clientsocket产生的错误?
- 怎么样去掉TWebBrowser控件中自带的右键菜单啊,帮帮忙啊,!
- vfp数据库查询问题,在线等待
- 急。,,,
- 急!!!swf加入资源文件后,怎样做到不释放到具体的目录,而直接调用(达到保护swf文件的目的)?
- 大家来总结下Delphi开发环境中实用的快捷键,散分!!!
var
reg : TRegistry;
ts : TStrings;
i : integer;begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm',false);
ts := TStringList.Create;
reg.GetValueNames(ts);
for i := 0 to ts.Count -1 do begin
Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
end;
ts.Free;
reg.CloseKey;
reg.free;end;
procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
ts : TStrings;
i : integer;begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm',false);
ts := TStringList.Create;
reg.GetValueNames(ts);
for i := 0 to ts.Count -1 do begin
Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
end;
ts.Free;
reg.CloseKey;
reg.free;end;