Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

Ждущий режим   Найти похожие ветки 

 
1519   (2006-09-04 10:03) [0]

Здравствуйте, мастера!!!
У меня есть один вопрос: "Можно ли как-нибудь разбудить компьютер программно, не применяя физических действий, а если можно, то как."
Заранее Большое спасибо!!!


 
GrayFace ©   (2006-09-04 10:54) [1]

Можно. WaitableTimer"ом. См. SetWaitableTimer, Wait Functions.


 
1519   (2006-09-04 14:33) [2]

А какие параметры передавать?


 
1519   (2006-09-04 20:27) [3]

[GrayFace]
не можешь привести пример, у меня что-то не получается.


 
[Rock]   (2006-09-07 09:38) [4]

В планировщике задач (тот, что в панели инструментов) создать расписание, например для текстового файла. И поставить опцию "Разбудить кампутер"


 
GrayFace ©   (2006-09-08 19:32) [5]

unit Unit2;

interface

uses
 Classes, Windows, Messages;

type
 TWaitThread = class(TThread)
 private
   fTime:Int64;
   { Private declarations }
 protected
   procedure Execute; override;
 public
   property Time:Int64 read fTime write fTime;
 end;

implementation

uses SysUtils;

{ TWaitThread }

procedure TWaitThread.Execute;
var h:THandle;
begin
 fTime:=-fTime*10000;
 h:=CreateWaitableTimer(nil, true, nil);
 try
   if not SetWaitableTimer(h, fTime, 0, nil, nil, true) then RaiseLastOSError;

   if WaitForSingleObject(h,INFINITE)<>WAIT_OBJECT_0 then RaiseLastOSError;
 finally
   if h<>0 then CloseHandle(h);
   FreeOnTerminate:=true;
   Terminate;
 end;
end;

end.


Не знаю, правда, почему h на правильность перед try не проверяю и зачем Terminate, но писал для себя (для будильника), так что не особо заботился о чистоте кода. Задача этого потока - разбудить систему через заданное время. В OnTerminate еще можно че-нибудь влепить.



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.042 c
1-1164629646
NeyroSpace
2006-11-27 15:14
2007.01.21
Вопрос про плагины (компонент TJvPlugin)


15-1167503328
Pazitron_Brain
2006-12-30 21:28
2007.01.21
Побрился первый раз!


3-1162386352
FBuilder
2006-11-01 16:05
2007.01.21
MySQL + Delphi через DBExpress


15-1167303986
Gero
2006-12-28 14:06
2007.01.21
Вопрос пользователям DMClient


15-1167366197
NGr
2006-12-29 07:23
2007.01.21
Чем удобнее читать группы новостей ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский