Zitat von
Matze:
Jupp, das sind die sog.
Akronyme <= so sieht ein Link aus.
Wenn du magst, Gabberjool, kannst du mich ab und zu über ICQ anschreiben (oder auch per PN). Aber ich bin eben nicht immer da, somit kann es Wartezeiten von bis zu 12 h geben.
Und ich habe auch nicht immer Zeit (Hobbies, Studium). Ich kann sicher auch nicht immer weiterhelfen.
Daher meine Empfehlung weiterhin: Frage hier.
Sobald du denkst, dass deine Fragestellungen auch andere interessieren können, bitte ich dich jedoch, hier ein Thema zu eröffnen. Übel nimmt es dir ganz sicher keiner, wenn du davor die Delphi-Hilfe und die Suchfunktion der
DP genutzt hast. Fertiglösungen werden auch nur ungern präsentiert, aber das möchtest du laut deinem ersten Beitrag löblicherweise nicht.
Grüße, Matze
Danke Matze.
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 !!!