DELPHI在DOS模式下怎樣讀取註冊表和硬盤序列號，謝謝。

1.File -> New -> Console Application 2.

uses     var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    // ...
  finally
    reg.Free;
  end;
end;

3.取得硬碟序號: http://www.delphi32.com/info_facts/faq/faq_157.asp

hagar您好： 您說的方法在MS-DOS下還是無法運行，只能在 WIN32 中才可運行。

引言:hagar您好： 您說的方法在MS-DOS下還是無法運行，只能在 WIN32 中才可運行。

Delphi is designed to build Windows application. Delphi 1 could be twisted to build DOS application though: http://codecentral.borland.com/codecentral/ccweb.exe/getfile?id=145&filename=Example.txt You may also want to take a look at here: http://www.experts-exchange.com/Programming/Programming_Languages/Pascal/Q_20585823.html

怎樣無法運行？ 以下是讀 Disk Serial 的.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows;    var
  VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags: DWORD;
  SerialNumber: string;    begin
  GetVolumeInformation('C:\',
                       nil,
                       0,
                       @VolumeSerialNumber,
                       MaximumComponentLength,
                       FileSystemFlags,
                       nil,
                       0);
  SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4)  
                  '-'  
                  IntToHex(LoWord(VolumeSerialNumber), 4);
  WriteLn(SerialNumber);
end.

-- Everythins I say is a lie.

hagar您好： 您說的方法只能在WIN32中運行，在純DOS下不能運行。

C:\>vol c: Volume in drive C is YYY Volume Serial Number is C406-9364 這問題應該是要在 其它程式語言討論區 http://delphi.ktop.com.tw/forum.asp?FORUM_ID=999 目前開放QB C ASM(以DOS下的程式為主)本區版規 討論才是 另外一件事 你的delphi是那一板 可以在純dos運作 1.0嗎 在只有dos 6.22上運作嗎? 那建議使用 底罷可.exe 就可以了 發表人 - conundrum 於 2004/06/25 22:34:51