Printable View
سلام
می خواستم بدونم چه طور می شه از راه اندازی مجدد یه سیستم اطلاع پیدا کرد. به عنوان مثال بعد از نصب برنامه های امنیتی یا انتی ویروس ها حتما باید سیستم یک بار راه اندازی مجدد بشه تا این برنامه ها شروع به کار کنند. نکته دیگه اینکه آیا بدون اینکه برنامه من در حال اجرا باشه میشه از این موضوع مطلع شد یا نه
سلامنقل قول:
اينطوري ميتونيد از ShutDown شدن ويندوز مطلع بشيد و در صورت نياز ميتونيد اونو لغو كنيد :
بالاخره وقتي قرار برنامه شما اون چك كنه بايد يه جوري اجرا شده باشد.(معمولي يا حتي بصورت سرويس)کد:private
procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
end;
Implementation
procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
if MessageDlg('Close Windows now/ ?',
mtConfirmation,
[mbYes,mbNo], 0) = mrNo then
Msg.Result := 0
else
Msg.Result := 1;
end;
يك فلگ توي رجيستري وارد كن كه موقع اينستال فالس باشه و يك تيكه برنامه هم توي استارتاپ بزار كه موق راه اندازي مجدد ويندوز اين فلگ رو ترو كنه.
سلام
بازم راه حل NoneForce جناب مرد مباح راه حل شما رو قبلا امتحان کرده بودم، خیلی ابتدایی و میشه راحت سر برنامه کلاه گذاشت. در مورد روش NoneForce هم برنامه حتما باید در حال اجرا باشه. منظور من اینه که مثلا برنامه
نصب شده اما اجرا نشده باشه، در این صورت روشی هست که فهمید سیستم راه اندازی مجدد شده یا نه، اگه نه می خواستم بدونم راهی هست که Processe برنامه رو از دید کاربر مخفی کرد یعنی تو قسمت Application برنامه Task Manager اسمی از برنامه نباشه؟
سلامنقل قول:
با اين روش ميفهميد كه چه مدت از فعال شدن ويندوز ميگذرد. شايد بدردتون بخوره :
در مورد مخفي سازي هم قبلا بحث شده.کد:function UpTime: string;
const
ticksperday: Integer = 1000 * 60 * 60 * 24;
ticksperhour: Integer = 1000 * 60 * 60;
ticksperminute: Integer = 1000 * 60;
tickspersecond: Integer = 1000;
var
t: Longword;
d, h, m, s: Integer;
begin
t := GetTickCount;
d := t div ticksperday;
Dec(t, d * ticksperday);
h := t div ticksperhour;
Dec(t, h * ticksperhour);
m := t div ticksperminute;
Dec(t, m * ticksperminute);
s := t div tickspersecond;
Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) +
' Minutes ' + IntToStr(s) + ' Seconds';
end;
نان فورس جان.
اين روش نسبتا خوبه.
ولي واقعيتش اينه كه آدم نميدونه بايد با چه عددي چك كنه؟؟
كمتر از 5 دقيقه؟ 10 دقيقه ؟ يا چقدر ؟؟
ضمنا مار عزيز.
ميشه با فرمان Form.Hide برنامه رو از ليست Application مخفي كرد ولي از ليست Process خارج نميشه.
براي خارج شدن از پروسس كاراي خيلي سختي بايد بكني كه بي خيالي طي كن.
ضمنا به نظر من چون شما فقط يك بار اين چك رو انجام ميدي قاعدتا نياز به يك فلگ داري كه يا تو فايل ويا تو رجيستري بايد چكش كني.
موفق باشي.
سلامنقل قول:
اول باید بگم که مار نیست و ام ای آره یعنی مخفف یه کلمه
ثانیا دست درد نکنه منو از جستجو راحت کردی