Отправляет email-рассылки с помощью сервиса Sendsay

СообЧА. Программирование на Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
26.09.2001
22:01:01
22:36:02
27
28
29
30
Автор
Сергей

Статистика

10.085 подписчиков
-9 за неделю
←   Все выпуски   →

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Subscribe.Ru : СообЧА. Программирование на Delphi
Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Технологии карьеры и личностного развития.
Разнообразные материалы по технологиям, методам, способам построения успешной карьеры и личностного (интеллектуального, духовного, физического ...) развития.
Подписаться.   Рассылки Subscribe.Ru


 

Мир Delphi

PixelSoftware (у нас архив рассылки+файлы примеры)

  

По тех. причинам подсчет подписчиков не ведется.

 
     

:л СообЧа - Программирование на Delphi, 

для чайников и не только.

GЕжу понятно!

 

(С) 2000 - 2001COOLer

  

Дизайн: Yoghurt

  
     

Оглавление

 

В этом выпуске:

  

Рассылка СообЧА

  
     

Статьи:

Прочее:

Все желающие могут заказать у меня программу пример, к статьям этой рассылки.

  
Рассылки Subscribe.Ru это стильно удобно, и информативно!
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.

  Назад к оглавлению    
   
 

Конкурс и новости рассылки

  
 
   

  • В данный момент решается судьба нашего конкурса, т.е To be or not to be 

  • Сайт обновлен, ура! Есть пара свежих программ в разделе файлы, слегка изменен дизайн некоторых страниц.

  • Извините за неудобства, в связи с изменением частоты хождения рассылки, и переменой дизайна, сейчас у нашей расылки небольшие изменения в ...(где-то в ней ) 

Лучшие ссылки по Дельфи:

  • Нравится ли вам наша рассылка?

    • Да

    Нет

    Не успел оценить

      Назад к оглавлению    
       
     

    Выбор лучшего

    		  
     
       
    Временно недоступно.

     

     
      Назад к оглавлению    
       
     

    И он умер, постепенно...

    		 
     
       

    Вопрос: А как реализовать в одном компоненте такие функции как выключение компьютера, перезагрузка, завершение сеанса работы пользователя, Eject CD, выключение питания монитора и т.д.? Ответ: предлагаем посмотреть следующий пример ...

    Совместимость: все версии Delphi

    Пример:

     

        procedure TForm1.Button1Click(Sender: TObject);

    begin
    PowerControl1.Action:=actCDEject;// Или... actLogOFF, actShutDown...
    PowerControl1.Execute;
    end;

    Код компонента

     

        unit
    PowerControl;
    interface
    uses     WinTypes, WinProcs, Messages,
    SysUtils, Classes, Controls,
    Forms, Graphics,
    MMSystem;
    type
    TAction =
    (actLogOFF,actShutDown,actReBoot,actForce,actPowerOFF,

    actForceIfHung,actMonitorOFF,actMonitorON,actCDEject,actCDUnEject);

    type
    TPowerControl = class(TComponent)

    private

    FAction : TAction;

    procedure
    SetAction(Value : TAction);
    protected

    public

    function Execute :
    Boolean;
    published

    property Action :
    TAction read FAction write SetAction;
    end;

    procedure Register;
    implementation
    procedure
    Register;
    begin
    RegisterComponents('K2',
    [TPowerControl]);
    end;
    procedure TPowerControl.SetAction(Value
    : TAction);
    begin
    FAction := Value;

    end;
    function TPowerControl.Execute : Boolean;
    begin

    with (Owner as TForm) do

    case FAction of

    actLogOff:
    ExitWindowsEx(EWX_LOGOFF,1);

    actShutDown:
    ExitWindowsEx(EWX_SHUTDOWN,1);

    actReBoot:
    ExitWindowsEx(EWX_REBOOT,1);

    actForce:
    ExitWindowsEx(EWX_FORCE,1);

    actPowerOff:
    ExitWindowsEx(EWX_POWEROFF,1);

    actForceIfHung:
    ExitWindowsEx(EWX_FORCEIFHUNG,1);

    actMonitorOFF:
    SendMessage(Application.Handle,

    WM_SYSCOMMAND,
    SC_MONITORPOWER, 0);

    actMonitorON: SendMessage(Application.Handle, WM_SYSCOMMAND,


    SC_MONITORPOWER, -1);

    actCDEject: mciSendstring('SET CDAUDIO DOOR OPEN


    WAIT',nil,0, Handle);

    actCDUnEject: mciSendstring('SET CDAUDIO DOOR CLOSED


    WAIT',nil,0, Handle);
    end; {Case}

    Result := True;
    end;
    end.

     

    mailto:Автор:Pixel(pixel@novgorod.net http://pixelsoft.narod.ru/ )
    ї COOLer 
    Назад к оглавлению    
       
     

    Bios, сколько тебе лет? 

    		  
     
       

    Мои любимые функции, это те, которые позволяют узнавать все и вся от своего железа. 

    Вот например одни из них :

     

    function GetBiosDate1: String;
    var
       Buffer : Array[0..8] Of Char;
       N : DWORD;
    begin
       ReadProcessMemory(GetCurrentProcess,
       Ptr($FFFF5),
       @Buffer,
       8,
       N);
       Buffer[8] := #0;
       result := StrPas(Buffer)
    end;

    function GetBiosDate2: String;
    begin
       result := string(pchar(ptr($FFFF5)));
    end;


    {Only for Win 95/98/ME)    ^^^^^^

    Скорость проца, можно измерить так:


    function GetCPUSpeed : Double;
    const
      DelayTime = 500;
    var
      TimerHi,
      TimerLo  : DWORD;
      PriorityClass,
      Priority : Integer;
    begin
      PriorityClass := GetPriorityClass(GetCurrentProcess);
      Priority      := GetThreadPriority(GetCurrentThread);

      SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
      SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

      Sleep(10);
      asm
        dw 310Fh
        mov TimerLo, eax
        mov TimerHi, edx
      end;
      Sleep(DelayTime);
      asm
        dw 310Fh
        sub eax, TimerLo
        sbb edx, TimerHi
        mov TimerLo, eax
        mov TimerHi, edx
      end;

      SetThreadPriority(GetCurrentThread, Priority);
      SetPriorityClass(GetCurrentProcess, PriorityClass);

      Result := TimerLo / (1000 * DelayTime);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage(Format('Your CPU speed: %f MHz',  [GetCPUSpeed]));
    end;


    {    Для точного результата лучше измерить скорость 10 раз, а потом осреднить результат}

     

    mailto:Автор:Pixel(pixel@novgorod.net http://pixelsoft.narod.ru/ )

     

    Zaluskiy Anton(COOLer)  и Khrapunov Kirill(Pixel)  - ведущие проекта    "Мир Delphi"



    о3он TopList RLE Banner Network
    -AdRiver-
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    В избранное