سلام
موقعي كه رايانه رو خواموش مي كنم مي خوام دلفي خود به خود قبل از خاموشي به من يك message بدهد
message: سيدي رام هاي خود را چك كنيد
آيا شدني ؟
please answer this question
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls , [COLOR="Red"]ComObj[/COLOR];
procedure TForm1.Button1Click(Sender: TObject);
var
shell: Variant;
begin
ShowMessage('لطفا سي دي رام خود را چك كنيد');
shell := CreateOleObject('Shell.Application');
shell.ShutdownWindows;
end;
می توانید یک در رویداد Onclose فرم خودتون این پیغام رو بنویسید.سلام
موقعي كه رايانه رو خواموش مي كنم مي خوام دلفي خود به خود قبل از خاموشي به من يك message بدهد
message: سيدي رام هاي خود را چك كنيد
آيا شدني ؟
please answer this question