سلام اقا 2 تا سوال:
1- دستور ریست کردن کام÷یوتر چیه؟
2-چطوری میشه به سیستم ارتباط برقرار کرد مثلا مونیتور خاموش بشه یا فن خاموش بشه یا ....؟؟؟
Printable View
سلام اقا 2 تا سوال:
1- دستور ریست کردن کام÷یوتر چیه؟
2-چطوری میشه به سیستم ارتباط برقرار کرد مثلا مونیتور خاموش بشه یا فن خاموش بشه یا ....؟؟؟
1- دستور ریست کردن کام÷یوتر چیه؟
باید با استفاده از Run در فایل System32 ویندوز که در پوشه ی ویندوز هست نام فایل reset.exe رو تایپ کنی
سوال دومت رو یادم نیست ( من یک ساله دلفی رو کنار گذاشتم * ولی میگردم اگر چیزی یافتم میزارم
تشکر//
سلامنقل قول:
براي Restart , Shutdown ميتوانيد از تابع زير استفاده كنيد :
نحوه فراخواني :کد:function DoExitWindows(RebootParam: Longword): boolean;
var
TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: boolean;
const
cSE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
tpResult := OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, TTokenHd);
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil, cSE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd, false, TTokenPvg, cbtpPrevious,
rTTokenPvg, pcbtpPreviousRequired);
end;
end;
Result := ExitWindowsEx(RebootParam, 0);
end;
مقادير ديگر :کد:DoExitWindows(EWX_REBOOT or EWX_FORCE);
EWX_POWEROFF
EWX_LOGOFF
براي خاموش / روشن كردن مانيتور :
خاموش :
روشن :کد:SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1);
کد:SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);
سلام.
میخواستم بدونم چطوری میشه لیست پوشه های موجود در درایو های یک سیستم رو بدست آورد(api)
ممنون میشم اگه راهنماییم کنید.
سلام . من یه عضود جدید هستم و دارم یه برنامه مینویسم که توش از دیتا بیس اکسس ( آماده و حاوی اطلاعات) استفاده می کنم ولی توی ----- کردنش گیرکردم و از شما کمک می خواستم. این دیتا بیس یک سری فیلد داره و قراره طوری فییلتر بشه که کاربر هر اطلاعاتی رو که داشت نه لزوما با یکسری فیلد ثابت رو بتونه ببینه. یعنی ----- با همه فیلد ها انجام بشه و فیلد ها اجازه خالی بودن هم داشته باشند. مرسی
خوب دستور ----- خودش اين كار رو ميكنه
فقط ميخواين دقيقا چي ----- بشه ( چه فيلدي)
تا من كدش خدمتون بدم
اگه مشكل نداره تا اونجايي رو كه نوشتي بده تا واست درستش كنم .
لطفا اگر کسی سوال زیر میداند برایم ارسال کند؟
برنامه ای به زبان دلفی که طیف رنگی بنفش را به آبی نمایش دهد
منظورتون گرادیانته؟نقل قول:
TForm3 = class(TForm2)
چطور به کامپیلر دلفی بگویم که فایل dfm رو
اینطوری ذخیره کنه
inherited Form3: TForm2
سلام. خوش آمديدنقل قول:
لطفا سوالات خودتون رو واضح تر بيان كنيد.
شما با اعلان form3=class(form2) در واقع داريد از ارث بري در كلاسها استفاده مي كنيد، اما منظور شما از "فايل dfm رو ذخيره كنه" متوجه نشدم
اگر ميخوايد كه تمام متدها و متغيرهاي عمومي form2 رو در form3 داشته باشيد، همون خط اول كفايت ميكنه وگرنه بيشتر توضيح بديد كه چه كاري قرار هست انجام بشه