Подскажите, плиз, как программно отключить CD-приводы и весь 'узел' (не знаю, как правильно назвать), т.е 'disable CD' и 'disable node'...

| Сообщение посчитали полезным:

StarForce Nightmare

-----
in search of sunrise

| Сообщение посчитали полезным:

в яблочко)
Но всё-же как это реализовать на Delphi?

| Сообщение посчитали полезным:

buddy, во-первых не так просто(я сам не представляю как ето сделать ).
Разработкой StarForce Nightmare занималась целая команда профов.

Во-вторых StarForce Nightmare написан на асме. Если хочешь - бери олю и исследуй.

P.S. я советую бросить эту затею.

| Сообщение посчитали полезным:

sniperZ
После тщетных попыток исследования собственно и решил просить помощи советом. Но затея стоящая, когда-нибудь придёт озарение

| Сообщение посчитали полезным:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MMSystem, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
IOCTL_STORAGE_MEDIA_REMOVAL = $02D4804;

implementation

{$R *.dfm}

function LockCD(cdLetter : PChar):boolean;
var hDevice : THandle;
dwBytesReturned : DWORD;
l:boolean;
begin
result:=false;
l:=true;
hDevice := CreateFile(pchar('\.'+cdLetter+':'),GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING, 0,0);
if (hDevice=DWORD(-1)) then exit;
try
result:=DeviceIoControl(hDevice, IOCTL_STORAGE_MEDIA_REMOVAL, @l, sizeof(l),nil, 0,dwBytesReturned, nil);
finally
CloseHandle (hDevice);
end;
end;

function UnLockCD(cdLetter : PChar):boolean;
var hDevice : THandle;
dwBytesReturned : DWORD;
l:boolean;
begin
result:=false;
hDevice := CreateFile(pchar('\.'+cdLetter+':'),GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING, 0,0);
if (hDevice=DWORD(-1)) then exit;
try
result:=DeviceIoControl(hDevice, IOCTL_STORAGE_MEDIA_REMOVAL, @l, sizeof(l),nil, 0,dwBytesReturned, nil);
finally
CloseHandle (hDevice);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
UnLockCD('g');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LockCD('g');
end;

end.

Заместо G указываешь букву своего привода

| Сообщение посчитали полезным:

Veliant
WOW!
Спасибо. Сори за нескромность, как сделать 'disable node'...

| Сообщение посчитали полезным: