یک مشکل در یک کد در دلفی

[bamshad]

آقایون اساتید من یک آموزش توی یک سایت پیدا کردم ولی نمیتونم ازش استفاده کنم ببینید ای جریانش چه جوریه

------------
ابتدا پروسيجر زير را در قسمت Implementation در يونيت برنامه خود قرار دهيد.

procedure SystemKeys(Disable: Boolean);
 var OldVal : LongInt;
begin
 SystemParametersInfo
    (SPI_SCREENSAVERRUNNING,
     Word(Disable),
     @OldVal,
     0);
end;

حالا از اين پروسيجر در هر جاي برنامه كه مي خواهيد مي توانيد استفاده كنيد.
تنها پارامتر اين پروسيجر Disable از نوع منطقي(Boolean) است كه اگر اين پارامتر True باشد كليدها غير فعال مي شود و اگر False باشد كليدها فعال ميشود. در واقع اين پروسيجر ويندوز رو گول ميزنه و ويندوز فكر ميكنه كه Screen Saver اجرا هستش. اين كار مانع از عمل كردن كليد هاي Ctrl+Alt+Del, Alt+Tab, Ctrl+Esc مي شود.
---------------

ممنون از همه
یا علی

 

[MnavidM]

سلام.

خب مشکل شما با این کد چیه ؟

خودتون واضح گفتید این برنامه چی کار می کنه .

مشکل کجاست ؟

نوید

 

[bamshad]

سلام.

خب مشکل شما با این کد چیه ؟

خودتون واضح گفتید این برنامه چی کار می کنه .

مشکل کجاست ؟

نوید

اگه میشه از این سورس یک برنامه در دلفی بنویسید و اینجا سورس کد برنامه رو attachment کنید ممنون

 

[bamshad]

اگه میشه از این سورس یک برنامه در دلفی بنویسید و اینجا سورس کد برنامه رو attachment کنید ممنون

کسی نبود؟ ((((((((((((((((((((((

 

[MnavidM]

سلام.

این رو ببین :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure SystemKeys(Disable: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SystemKeys(Disable: Boolean);
 var OldVal : LongInt;
begin
 SystemParametersInfo
    (SPI_SCREENSAVERRUNNING,
     Word(Disable),
     @OldVal,
     0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.SystemKeys(true);
end;

end.

 

[bamshad]

آقا ولی من این سورس رو تست کردم ولی بعد از زدن Button1 باز هم Task Manager باز میشه

 

[MnavidM]

آقا ولی من این سورس رو تست کردم ولی بعد از زدن Button1 باز هم Task Manager باز میشه

سلام.

والا دیگه اونش تقصیر من نیست !!!!

شما نحوه استفاده رو می خواستید ، که براتون نوشتم .

انشاالله بعد از تعطیلات میگرم ، ببینم می تونم چیزی در این مورد براتون پیدا کنم

موفق باشی.
نوید.