בית
Top.Mail.Ru Yandeks.Metrika
פורום: "WinAPI";
ארכיון נוכחי: 2004.12.12;
הורדה: [xml.tar.bz2];

למטה

עבודה עם שירותים מצא סניפים דומים


Anti   (2004-10-25 22:08) [0]

אדונים! שאלה קשה. כיצד אוכל ליישם תוכנית שאמורה לשנות את פרמטרי ההשקה של שירות מסוים. העיקר שיש זכויות מערכת / מנהל.
שנה את פרמטרי ההפעלה, כלומר "אוטומטי", "ידני", "מושבת"



Cobalt ©   (2004-10-25 23:33) [1]

חפש כאן בפורום - סביר להניח שתמצאו שאלות על שירותים.

למנחים - כנראה שנושא זה הגיע הזמן להכניס אותו לשאלות הנפוצות



Anti   (2004-10-26 00:13) [2]

לא + (((



sniknik ©   (2004-10-26 08:40) [3]

נסה להתמזמז
http://delphi.chertenok.ru/forum/my_download.php?tema=del&action=show&id=173
בוודאות תמצא את מה שאתה צריך, אם לא בדוגמה עצמה, אז בעזרה לפונקציות המשמשות שם. (לפחות תדעו מה לחפש)



Дмитрий Ботвин   (2004-10-26 09:10) [4]

ובכן, על חשבון שאלה קשה, ברור שהתרגשת :-)))
ברגע זה נעזור לך:

חבר את מודול Winsvc והנה הנוהל:

// הגדר את סוג התחלת השירות
הליך TForm1.Button1Click (שולח: TObject);
var
SCManager, שירות: SC_HANDLE;
TypeStart: DWORD;
שגיאה, i: מספר שלם;
שם שירות: מחרוזת;
להתחיל
שגיאה: = 0;
אם ListView1.Items.Count = 0 אז צא;
אם לא הוקצה (ListView1.Selected) אז צא;
i: = ListView1.Selected.Index;
שם שירות: = ListView1.Items.Item [i]. הכיתוב;
מקרה ComboBox1.ItemIndex של
0: TypeStart: = SERVICE_AUTO_START;
1: TypeStart: = SERVICE_DEMAND_START;
2: TypeStart: = SERVICE_DISABLED;
ח
// קבל את פרמטרי התצורה הישנים
SCManager: = OpenSCManager = (PChar (Form1.CompName.Text), אפס, GENERIC_READ);
אם SCManager <> 0 לאחר מכן
להתחיל
שירות: = OpenService (SCManager, PChar (שם שירות), SERVICE_CHANGE_CONFIG);
אם שירות <> 0 אז
להתחיל
// הגדר אפשרויות תצורה חדשות
אם לא (ChangeServiceConfig (שירות, SERVICE_NO_CHANGE,
TypeStart, SERVICE_NO_CHANGE, אפסי, אפסי, אפסי, אפסי,
אפס, אפס, אפס)) ואז שגיאה: = 1;
CloseServiceHandle (שירות);
ח
שגיאה אחרת: = 1;
CloseServiceHandle (SCManager);
ח
שגיאה אחרת: = 1;
אם שגיאה = 1 ואז Application.MessageBox ("איני יכול לשנות את סוג השקת השירות!", "שינוי תצורת השירות",
MB_OK + MB_ICONQUESTION)
אחר CreateServiceList;
ח

יש לי רשימת שירותים ב- ListView1, וב- ComboBox1
אני נכנס "Auto", "Manual" ו- "Disabled".
אם אתה מעוניין כיצד לקבל רשימת שירותים, כתוב. אם מה שלא ברור, כתוב :-)))



Дмитрий Ботвин   (2004-10-26 10:29) [5]

שכחת לכתוב נוהל CreateServiceList מעדכן את הרשימה
שירותים לאור סוג התחלה חדש. הסר את השיחה שלה מהמודול ...



עמודים: 1 ענף שלם

פורום: "WinAPI";
ארכיון נוכחי: 2004.12.12;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.57 MB
זמן: 0.074 c
8-1094583160
bulanov
2004-09-07 22:52
2004.12.12
כיצד להעתיק חלק מהתמונה


1-1101677694
בובי דיגיטלי
2004-11-29 00:34
2004.12.12
שלח משתנה


1-1101371135
אינקוג
2004-11-25 11:25
2004.12.12
TreeView


14-1100801167
Onefragleft
2004-11-18 21:06
2004.12.12
TStringProperty - מאיפה?


1-1101362342
יוס
2004-11-25 08:59
2004.12.12
שיעורים





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג&#39;אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ&#39;כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג&#39;ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג&#39;בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский