2009年8月20日木曜日

新サービスに関する御知らせ

いつもご利用いただきありがとうございます。


前回告知いたしました新サービスについてですが、
当初8月中旬と告知させていただきました導入日ですが、システムの一部変更により導入日を9月1日と変更させていただきます。


今回導入を予定しておりますサービスは、個人間におけ 日服游戏
る詐欺トラブルを未然に防ぐためのサービスとなります。
そのためどなたでもご利用いただけるサービスでは無く、
下記のどちらかのIDをお持ちの方のみがご利用対象となります。


?JNB口座を利用しIDを取得している方
?固定電話番号を利用しIDを取得している方


何れも事務手数料など一切かからず無料で取得することができます。

登録に関する他諸経費、JNBへの郵送費用やNTTへの電話料金などはお客様のご負担となります。)


またJNB口座でのご登録の場合、新たにアカウントを取得する必要はなく、
既存のアカウントからJNB認証口座へアップグレードすることができます。
アップグレードされますと個人情報確認マークがサイトに表示されますので、
この機会にアップ
グレードされてはいかがでしょうか。


なお固定電話番号でのID取得お申し込みですが、現在お申し込みが多数来ており、
取得するまでに約3週間程かかる場合がございますので、ご注意ください。


■JNB口座によるID取得関連ページ
http://trade.netgame-rmt.jp/start_regist#jnb
■固定電話番号によるID取得関連ページ
http://trade.netgame-
rmt.jp/regist_with_tel







#e1356985, at 2006 09/05 08:01





name


MMO商人JNB口座認証済


class
admin


contact



height="13" alt="URL" />

Tel

エスクロー





現在一部システムにエラーが発生しており、
公開を停止させていただいております。
近日中に再開予定となっておりますので、
ご迷惑をおかけいたしますが、今し
ばらくお待ち下さい。

2009年8月9日日曜日

GetIDEDiskSerialNumber

function THardwareInfo.GetIDEDiskSerialNumber: String; オンライン
var AION RMT
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; // PSendCmdOutParams
Buffer : Array[0..BufferSize-1] of Byte;
srbControl : TSrbIoControl absolute Buffer;
begin
Result := '';
FillChar(Buffer,BufferSize,#0);
if Win32Platform=VER_PLATFORM_WIN32_NT then
begin // Windows NT, Windows 2000
// Get SCSI port handle
hDevice := CreateFile( '\\.\Scsi0:',GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.Signature,8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData := PSendCmdInParams(PChar(@Buffer)
+SizeOf(SRB_IO_CONTROL));
pOutData := pInData;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT,
@Buffer, BufferSize, @Buffer, BufferSize,
cbBytesReturned, nil ) then Exit;
finally
CloseHandle(hDevice);
end;
end
else
begin // Windows 95 OSR2, Windows 98
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil,
CREATE_NEW, 0, 0 );
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
pInData := PSendCmdInParams(@Buffer);
pOutData := @pInData^.bBuffer;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA,
pInData, SizeOf(TSendCmdInParams)-1, pOutData,
W9xBufferSize, cbBytesReturned, nil ) then Exit;
finally
CloseHandle(hDevice);
end;
end;
with PIdSector(PChar(pOutData)+16)^ do
begin
ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));
SetString(Result,sSerialNumber,SizeOf(sSerialNumber));
Result:=TRIM(Result);
end;
end;