בית
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.56 MB
זמן: 0.053 c
6-1096626563
דמיטרי בוטווין
2004-10-01 14:29
2004.12.12
כמות ה- RAM במחשב מרוחק


3-1100428523
מגה
2004-11-14 13:35
2004.12.12
איני יכול לבצע שאילתה בשדה המחושב


1-1101443573
_sulent
2004-11-26 07:32
2004.12.12
גופנים, תגיד לי?


1-1101815168
Tytus
2004-11-30 14:46
2004.12.12
MapViewOfFile


6-1096832406
רצון
2004-10-03 23:40
2004.12.12
העברת קבצים דרך הרשת





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