DELPHI在DOS模式下怎樣讀取註冊表和硬盤序列號 |
答題得分者是:hagar
|
cxg
中階會員 ![]() ![]() ![]() 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
cxg
中階會員 ![]() ![]() ![]() 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
|
william
版主 ![]() ![]() ![]() ![]() ![]() 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
引言: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 |
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
怎樣無法運行?
以下是讀 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. |
cxg
中階會員 ![]() ![]() ![]() 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
|
conundrum
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:893 回覆:1272 積分:643 註冊:2004-01-06 發送簡訊給我 |
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
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |