Delphi - izvedba ukaza ob zagonu exe

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

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