Delphi , Help !

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by FatalLerr0r, 6 Jan 2010.

  1. FatalLerr0r

    FatalLerr0r Member

    Joined:
    15 Apr 2009
    Messages:
    33
    Likes Received:
    6
    Reputations:
    0
    Приветствую всех.
    Нужна помощь, надеюсь на ее...

    1) Как сделать, чтобы форму нельзя было свернуть ? (например, чтобы нельзя было закрыть я писал :
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
    CanClose:=False
    end;
    А как , чтоб нельзя было свернуть ?

    2) Как заблокировать клавиатуру и мышь ? ( не работает это :
    var
    Form1: TForm1;
    Dummy: integer = 0;
    OldKbHook: HHook = 0;

    implementation
    function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
    begin
    if code < 0 then
    Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
    else
    Result := 1;
    end;
    {$R *.dfm}
    procedure TForm1.FormCreate(Sender: TObject);
    var
    window:THandle;
    a: TRegistry;
    begin
    SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
    SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
    OldKbHook := SetWindowsHookEx(WH_MOUSE, @KbHook, HInstance, 0);
    begin
    SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
    SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
    OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
    )


    3) Почему непрячетются панель задач, пуск, часы ? В чем ошибка ?
    procedure TForm1.FormCreate(Sender: TObject);
    var
    window:THandle;
    begin
    window := FindWindow('Shell_TrayWnd', nil);
    window := FindWindowEx(window, HWND(0),'TrayNotifyWnd', nil);
    window := FindWindowEx(window, HWND(0),'TrayClockWClass', nil);
    ShowWindow(window, SW_HIde);

    begin
    window := FindWindow('Shell_TrayWnd', nil);
    window := FindWindowEx(window, HWND(0),'Button', nil);
    ShowWindow(window, SW_HIde);
    begin
    window := FindWindow('Shell_TrayWnd', nil);
    window := FindWindowEx(window, HWND(0),'TrayNotifyWnd', nil);
    ShowWindow(window, SW_HIDe);

    4) Моя цель ознакомительно-образовательная, не кидайтесь, просто help и все.
     
Loading...