[تمرين] الكل يسأل و الكل يجيب - نسخة قابلة للطباعة

في البداية السلام عليكم

الأسباب تعود لكون شركة Microsoft ماديا قوية جدا
مما جعلها تكون سوق كبيرة محيطة بها أو تتعامل معها
الطرق كثيرة التي اعتمدها فهي لا تنتظر المبرمجين بل تقصدهم الى ديارهم
و تعطيهم أجور تسيل اللعاب حتى يتواجدون معها (الأمثلة كثيرة)
و الشهائد التي تضعها في كل الدول تقريبا في شكل مناظرات تساعدها كثيرا

من ناحية البرمجيات لم تدخل شركة Microsoft كثيرا هذه السوق
و لكل ميدان لغة البرمجة المناسبة له, لذلك المقارنة تبقى دائما رهن الميدان

المنافسة الان بدأت تكبر و تشتد
لعلمك الان أصبحت الحواسيب غير مدعمة بأحد أنظمة التشغيل الخاصة ب Microsoft
لكل من شركة Hp أو Dell
و أصبحت تدرج مع حواسيبها اما نسخة من Ubuntu
أو تترك Free Dos فقط

شركة Google منافسة لها و Embarcadero أيضا و القادم مازال يخفي الكثير

يبقى لكل شخص ميولاته الخاصة و لغة البرمجة المفضلة
الموضوع يمكن أن يقال فيه الكثير

و السلام.

في البداية السلام عليكم

لاطلاع أكثر, تم تناول الحديث في خصوص هذه الموضوع
بهذه المشاركة لدى الفريق العربي للهندسة العكسية

حوار : دلفي أم فيجوال دوت نت؟

و السلام.

PHP كود :

{$OPTIMIZATION ON}
{$WARNINGS OFF}
{$HINTS OFF}

uses
  Winsvc;

procedure CallDriver(sysName: string);
var
  hSCManager, hService, hDevice: Hwnd;
  dwBytesReturned: DWORD;
  lpTemp: PChar;

begin
  hSCManager := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);
  if hSCManager <> 0 then
  begin
    hService := CreateService(hSCManager, 'Sample',
      'For Practise !!!',
      SERVICE_START or SERVICE_STOP or _DELETE,
      SERVICE_KERNEL_DRIVER,
      SERVICE_DEMAND_START,
      SERVICE_ERROR_IGNORE,
      PChar(sysName),
      nil, nil, nil, nil, nil);

    if hService <> 0 then
    begin
      StartService(hService, 0, lpTemp);
      DeleteService(hService);
      CloseServiceHandle(hService);
    end else
    begin
      ShowMessage('Can''t Create Service .');
    end;
    CloseServiceHandle(hSCManager);
  end else
  begin
    ShowMessage('Can''t connect to Service Control Manager Data Base .');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenD do
  begin
    Execute;
    if FileName = '' then Exit;
    CallDriver(FileName);
  end;
end;

PHP كود :

int _cdecl main(void)
{
    HANDLE hSCManager;
    HANDLE hService;
    SERVICE_STATUS ss;

    hSCManager = OpenSCManager(NULL, NULL, SC_MANAGER_CREATE_SERVICE);
   
    printf("Load Driver\n");
    if(hSCManager)
    {
        printf("Create Service\n");
        hService = CreateService(hSCManager, "Example", 
                                 "Example Driver", 
                                  SERVICE_START | DELETE | SERVICE_STOP, 
                                  SERVICE_KERNEL_DRIVER,
                                  SERVICE_DEMAND_START, 
                                  SERVICE_ERROR_IGNORE, 
                                  "C:\\example.sys", 
                                  NULL, NULL, NULL, NULL, NULL);
        if(!hService)
        {
            hService = OpenService(hSCManager, "Example", 
                       SERVICE_START | DELETE | SERVICE_STOP);
        }

        if(hService)
        {
            printf("Start Service\n");

            StartService(hService, 0, NULL);
            printf("Press Enter to close service\r\n");
            getchar();
            ControlService(hService, SERVICE_CONTROL_STOP, &ss);
            DeleteService(hService);
            CloseServiceHandle(hService);
       
        }
        CloseServiceHandle(hSCManager);
    }
 
    return 0;
}

PHP كود :

procedure CallDriver(sysName: string;LoadMode:Byte);
var
  hSCManager, hService, hDevice: Hwnd;
  dwBytesReturned: DWORD;
  lpTemp: PChar;

begin
  hSCManager := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);
  if hSCManager <> 0 then
  begin
    hService := CreateService(hSCManager, 'Sample',
      'For Practise !!!',
      SERVICE_START or SERVICE_STOP or _DELETE,
      SERVICE_KERNEL_DRIVER,
      LoadMode,
      SERVICE_ERROR_IGNORE,
      PChar(sysName),
      nil, nil, nil, nil, nil);

    if hService <> 0 then
    begin
      StartService(hService, 0, lpTemp);
      DeleteService(hService);
      CloseServiceHandle(hService);
    end else
    begin
      ShowMessage('Can''t Create Service .');
    end;
    CloseServiceHandle(hSCManager);
  end else
  begin
    ShowMessage('Can''t connect to Service Control Manager Data Base .');
  end;
end;

PHP كود :

// Start Type
//
  {$EXTERNALSYM SERVICE_BOOT_START}
  SERVICE_BOOT_START            = $00000000;
  {$EXTERNALSYM SERVICE_SYSTEM_START}
  SERVICE_SYSTEM_START          = $00000001;
  {$EXTERNALSYM SERVICE_AUTO_START}
  SERVICE_AUTO_START            = $00000002;
  {$EXTERNALSYM SERVICE_DEMAND_START}
  SERVICE_DEMAND_START          = $00000003;
  {$EXTERNALSYM SERVICE_DISABLED}
  SERVICE_DISABLED              = $00000004;