uses
registry;
procedure tform1.button1click(sender: tobject);
var
reg : tregistry;
sl: tstrings;
i: integer;
begin
reg := tregistry.create;
tryreg.rootkey := hkey_local_machine;
reg.openkey('hardware/devicemap/serial***m', false);
sl := tstringlist.create;
tryreg.getvaluenames(sl);
for i := 0 to sl.count -1 do
memo1.lines.add(reg.readstring(sl.strings[i]));
finally
sl.free;
end;
finally
reg.closekey;
reg.free;
end;
end;
delphi獲取本機IP地址
獲取本機ip地址，其實方法有很多了，現在用windows api 在delphi下實現如下 1.在uses 裡引用 winsock 單元。2.原始碼如下 delphi view plain copy print?function getlocalip string type tapinaddr ar...
delphi 讀取Excel資料
一 使用動態建立的方法 首先建立 excel 物件，使用comobj var1 顯示當前視窗 2 更改 excel 標題欄 3 新增新工作簿 4 開啟已存在的工作簿 5 設定第2個工作表為活動工作表 或6 給單元格賦值 7 設定指定列的寬度 單位 字元個數 以第一列為例 8 設定指定行的高度 單位 ...
delphi中用Socket取得本機的IP地址
function getlocaladdr string varszname array 0.254 of char host phostent addr in addr begin result zeromemory szname,255 if gethostname szname,255 soc...
讀取登錄檔（delphi）
function readreg xbf widestring widestring var xbfconnect string xbfconn1,regconn2,xbfconn3 string tempregbin array 0.15 of char xbflen integer h1 tha...
在delphi中讀取Excel資料
一 使用動態建立的方法 首先建立 excel 物件，使用comobj var 1 顯示當前視窗 2 更改 excel 標題欄 3 新增新工作簿 4 開啟已存在的工作簿 5 設定第2個工作表為活動工作表 或 取得excel中總行數和列數 tempermaxrows 6 給單元格賦值 7 設定指定列的寬...