پیام موقع خاموش کردن کامپیوتر

key

New Member
سلام
موقعي كه رايانه رو خواموش مي كنم مي خوام دلفي خود به خود قبل از خاموشي به من يك message بدهد
message: سيدي رام هاي خود را چك كنيد
آيا شدني ؟
please answer this question
 

DrXoX

Member
سلام
موقعي كه رايانه رو خواموش مي كنم مي خوام دلفي خود به خود قبل از خاموشي به من يك message بدهد
message: سيدي رام هاي خود را چك كنيد
آيا شدني ؟
please answer this question

سلام
والا فكر نكنم بشه :roll:
كمكي كه من مي تونم بكنم اينه كه از داخل يك برنامه ساده دلفي اين كار را انجام بديم:

1- در قسمت Uses كلمه اي كه در كد زير با رنگ قرمز مشخص شده است را اضافه كن
کد:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls , [COLOR="Red"]ComObj[/COLOR];

2- يك Button روي فرم قرار بده و داخلش كد هاي زير رو بنويس

کد:
procedure TForm1.Button1Click(Sender: TObject);
var
  shell: Variant;
begin

  ShowMessage('لطفا سي دي رام خود را چك كنيد');
  shell := CreateOleObject('Shell.Application');
  shell.ShutdownWindows;
end;
3- حالا برنامه رو اجرا و روي بات كليك كن
4- پايان
_________

روزي کـه تو آمــــدي به دنيا عــريان *** جمعي به تو خندان و تو بودي گريان
کاري بکن اي دوست که وقت رفتن *** جمعي به تو گريند و تو باشي خندان
 

MnavidM

Active Member
سلام
موقعي كه رايانه رو خواموش مي كنم مي خوام دلفي خود به خود قبل از خاموشي به من يك message بدهد
message: سيدي رام هاي خود را چك كنيد
آيا شدني ؟
please answer this question
می توانید یک در رویداد Onclose فرم خودتون این پیغام رو بنویسید.

حالا وقتی برنامه اجرا هست و سیستم بخواهد خاموش شود و یا بخواهید فرم را ببندید این پیغام نمایش داده می شود.
 

جدیدترین ارسال ها

بالا