خانه - ارتباط با ما

بدون ScreenSaver
سلام.

اگر می خواید وقتی برنامه شما اجرا هست , ScreenSaver اجرا نشه

به صورت عمل کنید :

در قسمتی از کد برنامه که نوشته :

TForm1 = class(TForm)

شما این کد رو قرار بدید :

procedure AppMessage( var Msg : TMsg; var bHandled : boolean );

و این کد رو هم در پایین تر از {$R *.dfm} قرار بدید :

procedure TForm1.AppMessage( var Msg : TMsg; var bHandled : boolean ); begin if((WM_SYSCOMMAND = Msg.Message) and (SC_SCREENSAVE = Msg.wParam) )then bHandled := True; end;

تموم شد .

اگه سوالی بود بگید.

نظر یادتون نره .

راستی اگه کدی خاصی هم می خواستید بگید.

نوشته شده در چهارشنبه یکم تیر 138410:41 توسط نوید مردوخ روحانی | لینک کامل مطلب