Delphi help
Hogyan, hogy kilépjen a program gombot a tálcán, majd az Alt-Tab és a Ctrl-Alt-Del
A módosítások (kiemelt színű) a projektben, akkor kap egy alkalmazás, amely nem látható a tálcán, és lehetetlen bekapcsolni az Alt-Tab
programot Project1;
felhasználások
Formák,
ablakok,
Egység1 in 'Unit1.pas';
var
ExtendedStyle. integer;
kezdődik
Application.Initialize;
ExtendedStyle: = GetWindowLong (application.Handle, GWL_EXSTYLE);
SetWindowLong (Application.Handle, GWL_EXSTYLE,
ExtendedStyle vagy WS_EX_TOOLWINDOW);
Application.CreateForm (TForm1, Form1);
Application.Run;
végén.
Ha bekapcsolja a kék megjegyzést, akkor kap egy nagyon érdekes alkalmazás. Ez nem látható a tálcán, és lehetetlen bekapcsolni a Alt-Tab, de ha az alkalmazás minimális, továbbra is az asztalon formájában egy összehajtott header (csakúgy, mint a régi jó Windows 3.11)
Csak spazu ppeduppezhdayu PPO gpabli, amelyen én halad:
Legyen felkészülve arra, hogy ha megpróbálja a zárás alatt alkalmazási programok vannak OnCloseQuery vagy OnClose megjeleníti a problémák egy visszaigazolást, akkor lehet automata zavepsheniem alatt problémát programok leállítása - Win95 alatt pposto lóg alá WinNT nem zavepshaetsya. Nyilvánvaló, hogy az üzenet jelenik meg, de ez nem látható (ppichem SW_RESTORE nem spabatyvaet). Megoldás - fogása WM_QueryEndSession és miután zavepshayuschih akciók és hívja CallTerminateProcs kérdés szüneteltetése.
Itt van, hogy vágja le a fájlt show Ctrl-Alt-Del
funkció RegisterServiceProcess (dwProcessID, dwType: Egész): egész; stdcall;
külső 'KERNEL32.DLL';
végrehajtás
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik // elrejtése
ha nem (csDesigning a ComponentState), majd
RegisterServiceProcess (GetCurrentProcessID, 1);
végén;
eljárás TForm1.Button2Click (Sender: TObject);
kezdődik // megjelenítése
ha nem (csDesigning a ComponentState), majd
RegisterServiceProcess (GetCurrentProcessID, 0);
végén;