Forum » Programiranje » Delphi - izvedba ukaza ob zagonu exe
Delphi - izvedba ukaza ob zagonu exe
cucolino ::
Pozdravljeni...
Ena cisto banalna, sem se more or less zacetnik v Delphiju, in nisem tega nikoli prej potreboval, zdaj pa ne vem pod kaj naj sploh iscem... (moje kljucne besede skozi Google niso prinesle nic pametnega...)
Imam torej TButton, in OnClick event na njem. Kar bi rad naredil: namesto OnClick na Button1 bi rad ukaz, ki ga zdaj OnClick izvede napeljal tako, da se izvede takoj ko pozenem exe.
How the hack?
Hvala
Ena cisto banalna, sem se more or less zacetnik v Delphiju, in nisem tega nikoli prej potreboval, zdaj pa ne vem pod kaj naj sploh iscem... (moje kljucne besede skozi Google niso prinesle nic pametnega...)
Imam torej TButton, in OnClick event na njem. Kar bi rad naredil: namesto OnClick na Button1 bi rad ukaz, ki ga zdaj OnClick izvede napeljal tako, da se izvede takoj ko pozenem exe.
How the hack?
Hvala
Ericssony ::
Si že sam sebi odgovoril: uporabiš dogodek OnCreate (ali pa OnActivate) na objektu TForm.
cucolino ::
Ok... don't get it....
V formi sta 2 gumba; bLock in bUnlock.
Koda:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
bLock: TButton;
bUnlock: TButton;
procedure bUnlockClick(Sender: TObject);
procedure bLockClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
dwlcore;
procedure LockWindows(disable: integer);
var
hTaskBar, hProgman: HWND;
begin
wlDisableItem(wlTaskTray,disable);
wlDisableItem(wlDesktop,disable);
wlDisableItem(wlTaskLinks,disable);
wlDisableItem(wlStartMenu,disable);
wlDisableItem(wlAccessibility,disable);
hTaskBar := wlGetItemHandle(wlTaskBar);
hProgman := wlGetItemHandle(wlDesktop);
wlDisableKey(0,0,MOD_WIN,disable);
wlDisableKey(0,VK_ESCAPE, MOD_CONTROL,disable);
wlDisableKey(0,VK_F4, MOD_ALT,disable);
if hProgman > 0 then
wlDisableKey(hProgman,0,MOD_ALL,disable);
if hTaskBar > 0 then
wlDisableKey(hTaskBar,0, MOD_ALL,disable);
if wlIsDwlInstalled = 1 then
wlDisableKey(0,VK_DELETE,MOD_CONTROL or MOD_ALT,disable);
end;
procedure TForm1.bUnlockClick(Sender: TObject);
begin
wlRestoreAll;
end;
procedure TForm1.bLockClick(Sender: TObject);
begin
LockWindows(1);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{$IFDEF CIL}
wlExit;
end;
end.
Pa hvala. Res!! :)
Ps: Tista "LockWindows(1)" me malo bega... ne razumem zakaj je tako napisano in zamenjano v begin-endu gumba :S
V formi sta 2 gumba; bLock in bUnlock.
Koda:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
bLock: TButton;
bUnlock: TButton;
procedure bUnlockClick(Sender: TObject);
procedure bLockClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
dwlcore;
procedure LockWindows(disable: integer);
var
hTaskBar, hProgman: HWND;
begin
wlDisableItem(wlTaskTray,disable);
wlDisableItem(wlDesktop,disable);
wlDisableItem(wlTaskLinks,disable);
wlDisableItem(wlStartMenu,disable);
wlDisableItem(wlAccessibility,disable);
hTaskBar := wlGetItemHandle(wlTaskBar);
hProgman := wlGetItemHandle(wlDesktop);
wlDisableKey(0,0,MOD_WIN,disable);
wlDisableKey(0,VK_ESCAPE, MOD_CONTROL,disable);
wlDisableKey(0,VK_F4, MOD_ALT,disable);
if hProgman > 0 then
wlDisableKey(hProgman,0,MOD_ALL,disable);
if hTaskBar > 0 then
wlDisableKey(hTaskBar,0, MOD_ALL,disable);
if wlIsDwlInstalled = 1 then
wlDisableKey(0,VK_DELETE,MOD_CONTROL or MOD_ALT,disable);
end;
procedure TForm1.bUnlockClick(Sender: TObject);
begin
wlRestoreAll;
end;
procedure TForm1.bLockClick(Sender: TObject);
begin
LockWindows(1);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{$IFDEF CIL}
wlExit;
end;
end.
Pa hvala. Res!! :)
Ps: Tista "LockWindows(1)" me malo bega... ne razumem zakaj je tako napisano in zamenjano v begin-endu gumba :S
Zgodovina sprememb…
- spremenil: cucolino ()
cucolino ::
Ok, got it. :)
Sem pozabil na sami formi nastimat event^^ Jerk...
Hvala Ericssony :))
Hm... prihaja z naslednjim vprasanjem... ;)
Sem pozabil na sami formi nastimat event^^ Jerk...
Hvala Ericssony :))
Hm... prihaja z naslednjim vprasanjem... ;)
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Delphi - izdelava igreOddelek: Programiranje | 1160 (933) | Nextor |
» | Delphi - kako prepreči prečiti več zaporednih klikov gumbaOddelek: Programiranje | 1125 (1048) | LoneWolf |
» | RichEdit komponenta- tiskanjeOddelek: Programiranje | 881 (792) | mile |
» | Delphi problem- MessageDlgOddelek: Programiranje | 915 (845) | c3R4R |
» | Delphi problem- zapiranje programaOddelek: Programiranje | 1151 (1097) | c3R4R |