בית
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.053 c
1-1101838448
ארמק
2004-11-30 21:14
2004.12.12
הסבר קצר בלבד ב - StatusBar


14-1100856691
פרמוסה
2004-11-19 12:31
2004.12.12
שומן בשוקולד: מיתוס או מציאות?


14-1101187794
Tramadol
2004-11-23 08:29
2004.12.12
Les Poderevlyansky


1-1101743824
NSerge
2004-11-29 18:57
2004.12.12
שומר ב DOS (866) קידוד


14-1100831566
IMHO
2004-11-19 05:32
2004.12.12
רומנטיקה עם אבן, מנגינה





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