» »

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

Ericssony ::

Si že sam sebi odgovoril: uporabiš dogodek OnCreate (ali pa OnActivate) na objektu TForm.

cucolino ::

Ma... resno? Prav main stavek uporabim z begin-end funkcijo? :S
Jaooo....

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

Zgodovina sprememb…

  • spremenil: cucolino ()

cucolino ::

Ok, got it. :)

Sem pozabil na sami formi nastimat event^^ Jerk...

Hvala Ericssony :))

Hm... prihaja z naslednjim vprasanjem... ;)


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Delphi - izdelava igre

Oddelek: Programiranje
81160 (933) Nextor
»

Delphi - kako prepreči prečiti več zaporednih klikov gumba

Oddelek: Programiranje
51125 (1048) LoneWolf
»

RichEdit komponenta- tiskanje

Oddelek: Programiranje
6881 (792) mile
»

Delphi problem- MessageDlg

Oddelek: Programiranje
6915 (845) c3R4R
»

Delphi problem- zapiranje programa

Oddelek: Programiranje
71151 (1097) c3R4R

Več podobnih tem