Re: [SUCHE] Mentor/Meister /Leherer
Als Strafe musst du jetzt 20h durchgehend Fragen beantworten / alle Threads mitverfolgen und und und ... !!
|
Re: [SUCHE] Mentor/Meister /Leherer
Zitat:
|
Re: [SUCHE] Mentor/Meister /Leherer
Sorry. Das omg war auf die Frage was ist dp gemeint. Mir ist auch klar, dass man als Anfänger soetwas nicht wissen kann, aber das war spontan, was mir dazu einfiel.
:P |
Re: [SUCHE] Mentor/Meister /Leherer
Zitat:
Mir gehts wie gesagt garnicht darum das andere nicht wissen, wie, was, wo, nicht geht. Sonder bin sehr angetan leuten zu helfen. Den ich bin sehr angetan leute weiter zu helfen im bereich mappe für CSS CS.16 usw und helfe sehr vielen leuten... wen ich leuten helfen kann binich immer der erster der hielft wen ich es weiss und über mappen weiss ich einfach alles !... Drum nochmal ich könnte hier kein beispiel nennen was ich gerade meine ausser das: Ich hatte ja Fragen wie ich Pc neu starten kann... hab es dan so gerregelt:
Delphi-Quellcode:
function MyExitWindows(RebootParam: Longword): Boolean;
var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivileges; pcbtpPreviousRequired: DWORD; tpResult: Boolean; const SE_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, SE_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;
Delphi-Quellcode:
// Example to shutdown Windows:
procedure TForm1.Button1Click(Sender: TObject); begin MyExitWindows(EWX_POWEROFF or EWX_FORCE); end; // Example to reboot Windows: procedure TForm1.Button1Click(Sender: TObject); begin MyExitWindows(EWX_REBOOT or EWX_FORCE); end; Ich hatte ein rissen traraa bis ich das hatte, doch bis ich gemerkt hatte das ich es ja eig auch über batch hätte verwirklichen können.. doch da ist mein Problem ich denke einfach echt ZU weit !!! |
Re: [SUCHE] Mentor/Meister /Leherer
Zitat:
Zitat:
|
Re: [SUCHE] Mentor/Meister /Leherer
Ohne die Funktion zu bewerten..
Delphi-Quellcode:
begin
Probar1.Position := Probar1.Position +1; case Probar1.Position of 10:Begin bsSkinCheckRadioBox1.Checked := true; bsSkinButton2.Visible := true; end; 20: Begin bsSkinCheckRadioBox3.Checked := true; bsSkinButton1.Visible := true; sleep(900); end; 40: Begin bsSkinCheckRadioBox2.Checked := true; bsSkinButton3.Visible := true; sleep(1900); end; 82: Begin bsSkinCheckRadioBox4.Checked := true; bsSkinButton4.Visible := true; end; 99: Begin positiv.Visible := True; negativ.Visible := False; sleep(1900); end; 100: begin bsSkinCheckRadioBox5.Checked := true; Timer1.Enabled := false; Probar1.Position := 100; // davon kann man ausgehen bsSkinButton2.Enabled := True; bsSkinButton1.Enabled := True; bsSkinButton3.Enabled := True; bsSkinButton4.Enabled := True; // Teil 2 Assistant1.MsgDlg.Title := 'Installation Beendet !'; Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0); Assistant1.Visible := True; end; end; Application.ProcessMessages; end; |
Re: [SUCHE] Mentor/Meister /Leherer
sry auf was du raus willst hab ich kein plan ?
ich sag ja nur damit, dass ich so die "installation" simuliere. ïch will aber die simulation über die datei menge simulieren wird |
Re: [SUCHE] Mentor/Meister /Leherer
Zitat:
Zitat:
MfG |
Re: [SUCHE] Mentor/Meister /Leherer
Zitat:
Ich bin paarmal verzweifeln eingeschalfen ohne ein post zu hinterlassen, da ich das problem selber lösen wolllte aber da gibts probleme da ich stunden lang nach denke wie das zu verwirklichen ist und ich komm selbst vor dem schlafen nich darauf und am nächsten tag binich um 6uhr wach und hoch mich an D7 und mir fehlen immernoch die verwirklickungs information. (ich weiss meine rechtschreibung ist echt sau übel !!! sry....) |
Re: [SUCHE] Mentor/Meister /Leherer
Zitat:
:S Alles nur Spaß ;) PS: Stell ruhig deine Fragen. Egal wie "blöd" oder "anfänger"mäßig sie sind, sie werden dir schnellstens beantwortet, da viele Leute hier unterwegs sind (gehöre auch dazu), die gerne anderen helfen (und dementsprechend selbst auch Hilfe erwarten, falls sie selbst einmal irgendwo stecken !!) ! MfG |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz