Ĺadny brzuch
Mam dwa pytania:
1. Chciałbym się dowiedzieć jaki kod odpowiada za restart komputera w delphi. Kod przycisku jest taki:
procedure TForm1.Button5Click(Sender: TObject); begin showmessage ('Teraz nastąpi ponowne uruchomienie komputera') end; end.
Co zrobić by po wyświetleniu wiadomości nastąpiło ponowne uruchomienie systemu windows??
2.Czy jest możliwość wstawienia w delphi paska, który by się wypełniał z określoną przeze mnie prędkością(chodzi mi o pasek taki jaki jest na przykład podczas instalacji programów).
Za wszelka pomoc z gory dzieki.
1. Szukaj - kod juz gdzies tu byl (dla Win9x jest to jedna linijka, ale Bełdzio dał gdzieś tu kod uniwersalny - dla Win9x,Me,XP). BTW nie bede cie meczyl juz z szukaniem, masz linka:
http://www.ks-eksper...ukajTerms=POWER
2. Np. Gauge (zakładka Samples), lub ProgressBar .
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Migajek podał już Ci jednego linka a ja dorzucam kolejny:
http://www.ks-eksper...e&TOPIC_ID=2105
Jest tam trochę o restartach systemu.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Wielkie dzieki ale napotkalem problem, napisalem tak:
procedure TForm1.Button5Click(Sender: TObject); var h_Token : THandle; tp : TTokenPrivileges; pvs : PTokenPrivileges; retval: Cardinal; begin if not OpenProcessToken( GetCurrentProcess (),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, h_Token) then exit; if not LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid) then exit; tp.PrivilegeCount := 1; tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; pvs := nil; if not AdjustTokenPrivileges(h_Token, false, tp, 0, pvs, retval) then exit; ExitWindowsEx(EWX_REBOOT,0); end;
i przy kompilacji wyskakuje mi błąd:
cytat:declaration ecpected but end of file found.
Co zrobić żeby działało?
cytat:Phomerus napisał:
i przy kompilacji wyskakuje mi błąd:
cytat:declaration ecpected but end of file found.
Co zrobić żeby działało?
Chyba coś pominąłeś w swoim kodzie.
W której linijce wyskakuje Ci ten błąd ?
(wklej tu tą linię)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Zaznacza linijke zaraz pod "end;". Czyli zaznacza cos co jest puste, zupelnie teog nie czaje. A jak kliknie jescze raz to idzie nastepną linijkę w dół
cytat:Phomerus napisał:
Zaznacza linijke zaraz pod "end;". Czyli zaznacza cos co jest puste, zupelnie teog nie czaje. A jak kliknie jescze raz to idzie nastepną linijkę w dół
Nie widząc tego kodu ciężko coś powiedzieć.
Poniżej daje Ci prosty (i działający) przykład:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var h_Token : THandle; tp : TTokenPrivileges; pvs : PTokenPrivileges; retval: Cardinal; begin if not OpenProcessToken( GetCurrentProcess (),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, h_Token) then exit; if not LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid) then exit; tp.PrivilegeCount := 1; tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; pvs := nil; if not AdjustTokenPrivileges(h_Token, false, tp, 0, pvs, retval) then exit; ExitWindowsEx(EWX_REBOOT,0); end; end.
Porównaj sobie ze swoim kodem i poszukaj czego Ci brakuje...
Jakby dalej były problemy to pisz.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
wielkie dizeki, brakowalo mi na koncu "end."
Aha jeszcze jedno, czy jest możliwośc zablokowania wyłączenia okna z wiadomością?
jako okienko zrób nową formę daj CanClose := False;
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
a jak zrobić odnośnik w przycisku do nowej formy?
cytat:Phomerus napisał:
a jak zrobić odnośnik w przycisku do nowej formy?
ale o co chodzi ?? o pokazanie formy ??? Form2.Show lub Form2.ShowModal
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
A jak zrobić zeby form2 otwieral się zamiast form1. Bo tymi komendami co podales otwiera sie osobno, a ja chce zeby caly czas bylo jedno okno.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Chciałbym się dowiedzieć jaki kod odpowiada za restart komputera w delphi. Kod przycisku jest taki:
procedure TForm1.Button5Click(Sender: TObject); begin showmessage ('Teraz nastąpi ponowne uruchomienie komputera') end; end.
Co zrobić by po wyświetleniu wiadomości nastąpiło ponowne uruchomienie systemu windows??
2.Czy jest możliwość wstawienia w delphi paska, który by się wypełniał z określoną przeze mnie prędkością(chodzi mi o pasek taki jaki jest na przykład podczas instalacji programów).
Za wszelka pomoc z gory dzieki.
1. Szukaj - kod juz gdzies tu byl (dla Win9x jest to jedna linijka, ale Bełdzio dał gdzieś tu kod uniwersalny - dla Win9x,Me,XP). BTW nie bede cie meczyl juz z szukaniem, masz linka:
http://www.ks-eksper...ukajTerms=POWER
2. Np. Gauge (zakładka Samples), lub ProgressBar .
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Migajek podał już Ci jednego linka a ja dorzucam kolejny:
http://www.ks-eksper...e&TOPIC_ID=2105
Jest tam trochę o restartach systemu.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Wielkie dzieki ale napotkalem problem, napisalem tak:
procedure TForm1.Button5Click(Sender: TObject); var h_Token : THandle; tp : TTokenPrivileges; pvs : PTokenPrivileges; retval: Cardinal; begin if not OpenProcessToken( GetCurrentProcess (),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, h_Token) then exit; if not LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid) then exit; tp.PrivilegeCount := 1; tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; pvs := nil; if not AdjustTokenPrivileges(h_Token, false, tp, 0, pvs, retval) then exit; ExitWindowsEx(EWX_REBOOT,0); end;
i przy kompilacji wyskakuje mi błąd:
cytat:declaration ecpected but end of file found.
Co zrobić żeby działało?
cytat:Phomerus napisał:
i przy kompilacji wyskakuje mi błąd:
cytat:declaration ecpected but end of file found.
Co zrobić żeby działało?
Chyba coś pominąłeś w swoim kodzie.
W której linijce wyskakuje Ci ten błąd ?
(wklej tu tą linię)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Zaznacza linijke zaraz pod "end;". Czyli zaznacza cos co jest puste, zupelnie teog nie czaje. A jak kliknie jescze raz to idzie nastepną linijkę w dół
cytat:Phomerus napisał:
Zaznacza linijke zaraz pod "end;". Czyli zaznacza cos co jest puste, zupelnie teog nie czaje. A jak kliknie jescze raz to idzie nastepną linijkę w dół
Nie widząc tego kodu ciężko coś powiedzieć.
Poniżej daje Ci prosty (i działający) przykład:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var h_Token : THandle; tp : TTokenPrivileges; pvs : PTokenPrivileges; retval: Cardinal; begin if not OpenProcessToken( GetCurrentProcess (),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, h_Token) then exit; if not LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid) then exit; tp.PrivilegeCount := 1; tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; pvs := nil; if not AdjustTokenPrivileges(h_Token, false, tp, 0, pvs, retval) then exit; ExitWindowsEx(EWX_REBOOT,0); end; end.
Porównaj sobie ze swoim kodem i poszukaj czego Ci brakuje...
Jakby dalej były problemy to pisz.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
wielkie dizeki, brakowalo mi na koncu "end."
Aha jeszcze jedno, czy jest możliwośc zablokowania wyłączenia okna z wiadomością?
jako okienko zrób nową formę daj CanClose := False;
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
a jak zrobić odnośnik w przycisku do nowej formy?
cytat:Phomerus napisał:
a jak zrobić odnośnik w przycisku do nowej formy?
ale o co chodzi ?? o pokazanie formy ??? Form2.Show lub Form2.ShowModal
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
A jak zrobić zeby form2 otwieral się zamiast form1. Bo tymi komendami co podales otwiera sie osobno, a ja chce zeby caly czas bylo jedno okno.