API 함수를 통한 시리얼 넘버는 하드를 포멧하거나 시스템적인 프로그램을

돌리고 나면 변경되던데 하드의 물리적인 시리얼 넘버를 구할수는

없는지요.. 특정 메모리 번지나 특정 포트를 읽어오면 될것도 같은데..

그 특정 번지가 어딘지....

네.. 만약 정품 씨디가 있으시면 인스톨 쉴드라는 것이 있습니다.

그것을 가지고 만드시면 되구요..



아니면 Wise Install 등 설치제작용 소프트웨어가 나와있습니다.

데이타 베이스 프로그램을 개발하셨으면 BDE와 같이 배포하셔야 하는데 현재 델파이 씨디에 들어있는 인스톨쉴드 익스프레스에는 그런기능이 없기때문에 약간의 고생이 생각이 되는군요.

BDE를 수동으로 설치하게 만들어 줘야 하니까요...



자동으로 해주게 하는것은 Wise Install 을 첫째로 들 수 있습니다.

BDE뿐 아니라 DAO, DirectX 등등 런타임들을 자동으로 선택해서 설치할 수 있게 해주는 프로그램이죠... 그런데 상용입니다...



여기 나이렉스에서 판매를 하니 한번 여쭤보세요.





원유진 wrote:

> 델파이로 간단한 데이터 베이스를 이용하고, 그 데이타 베이스를 QReport를 이용해서 인쇄하는 프로그램을 만들었습니다.

> 그런데 만든 것은 둘째 치고라도 이 프로그램을 배포하려면(비주얼 베이직에서는 인스톨 프로그램이 있어서 쉽게 했는데) 델파이에서는 어떻게 하는지 모르겠군요.

> 저로써는 책을 읽어봐도 뚜렷한 답이 나와있질 않아서 걱정이 많습니다.

> 이걸 어떻게 하시는 것인지 아시는 분은 대답이나 먼저 이런 질문이 있었으면 해답란 번호좀 갈켜 줬으면 고맙겠습니다.

>

> 다시한번 부탁드립니다. 그럼 감사. 꾸벅

이현신 께서 말씀하시기를...

> API 함수를 통한 시리얼 넘버는 하드를 포멧하거나 시스템적인 프로그램을

> 돌리고 나면 변경되던데 하드의 물리적인 시리얼 넘버를 구할수는

> 없는지요.. 특정 메모리 번지나 특정 포트를 읽어오면 될것도 같은데..

> 그 특정 번지가 어딘지....

>



음냐...



예제입니다.



procedure TForm1.Button1Click(Sender: TObject);

var

VolumeName,

FileSystemName : array [0..MAX_PATH-1] of Char;

VolumeSerialNo : DWord;

MaxComponentLength,

FileSystemFlags : Integer;

begin

GetVolumeInformation('C:',VolumeName,MAX_PATH,@VolumeSerialNo,

MaxComponentLength,FileSystemFlags,

FileSystemName,MAX_PATH);

Memo1.Lines.Add('VName = '+VolumeName);

Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));

Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));

Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));

Memo1.Lines.Add('FSName = '+FileSystemName);

end;



도움이 되셨는지....

저도 GetVolumeInformation 를 사용해서 하드시리얼을 구햇읍니다.

그런데 포멧을 한후에 다시 구해보면 값이 틀리게 나오는데...

아래 제가 만든 함수입니다...



function HardSerial:string;

var

szLabel : array [0..255] of char;

dwVolumSerialNumber : DWORD;

dwMaxNameLength : DWORD ;

dwFileSystemFlages : DWORD ;

szFileSysName : array [0..255] of char ;

begin

try

GetVolumeInformation('c:',szLabel,255, @dwVolumSerialNumber,dwMaxNameLength,

dwFileSystemFlages,szFileSysName, 255);

result := IntToStr(dwVolumSerialNumber);

except

result := '';

end;



end;