+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود فتح السيدي (/showthread.php?tid=2063)
كود فتح السيدي - ams7 - 01-06-2010
السلام عليكم ،،
هل يوجد كود اخر غير هذا الكود يقوم بفتح السي د ي رووم ...
PHP كود :
mciSendString('Set cdaudio door open wait', nil, 0, handle);
لا ادري ما المشكله اذا اضفت هذا الكود لبرنامجي يقوم برنامج الحمايه بكشفه على انه تروجان !!
كود فتح السيدي - kachwahed - 01-06-2010
وعليكم السلام ورحمة الله
PHP كود :
uses
MMSystem;
function OpenCD(Drive: Char): Boolean;
var
Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWORD;
S: string;
DeviceID: Word;
begin
Result := False;
S := Drive + ':';
Flags := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm));
if Res <> 0 then Exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res = 0 then Exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm));
end;
end;
function CloseCD(Drive: Char): Boolean;
var
Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWORD;
S: string;
DeviceID: Word;
begin
Result := False;
S := Drive + ':';
Flags := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm));
if Res <> then Exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
if Res = 0 then Exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm));
end;
end;
إقتباس :بكشفه على انه تروجان !!الخلل فيه!
كود فتح السيدي - ams7 - 02-06-2010
شكرا يالغالي ،،
إقتباس :تباس:
بكشفه على انه تروجان !!
الخلل فيه!
ازلت الكود من البرنامج وفحصت مافي شي رجعت الكود كشفه الافيرا ،،،
بالنسبه للكود الي وضعته كيف طريقة الاستدعاء !!
كود فتح السيدي - musvc - 03-06-2010
:omg:
فقط كتابة حرف القرص, مثلا ً :
كود :
OpenCD('G');كتبت لك كود يقوم بالبحث عن جميع اجهزة السيديات و فتحها
كود :
var
I: Integer;
begin
For I := 67 to 90 do
If GetDriveType(PChar(Chr(I)+':\')) = DRIVE_CDROM then OpenCD(Chr(I));سلام
كود فتح السيدي - kachwahed - 04-06-2010
إقتباس :بالنسبه للكود الي وضعته كيف طريقة الاستدعاء !!@ams7
راجع دروس دورة دلفي للعرب (درس: الإجراءات والتوابع).