Hide

Mam problem jak Od razu po uruchomieniu programu ukryc forme ??

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Hide;
end;

nie dziala... hmm... --Ozyrys Pozdrawiam !

Poniższy kod pokazuje jak dodać aplikację do sekwencji startowej Windows.
uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
rejestr: TRegistry;
begin
rejestr := TRegistry.Create;
rejestr.RootKey := HKEY_LOCAL_MACHINE;
rejestr.LazyWrite := false;
rejestr.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
rejestr.WriteString('Moja Aplikacja', Application.ExeName);
rejestr.CloseKey;
rejestr.free;
end;--Pozdrowienia dla całego FORUM !!!

Marco_99

Poprzednia moja odpowiedź wybiegła od twojego tematu dotyczy ona ukrywania programów w Autostart windowsa.

Tym razem bardziej na temat:

ShowWindow(Handle,SW_HIDE); * ukrywanie
ShowWindow(Handle,SW_SHOW); * odkrywanie--Pozdrowienia dla całego FORUM !!!

Marco_99

w Project Source nad Application.Run; wpisz
Application.ShowMainForm := False;
procedura ta ukrywa forme glowna programu
przykladowy Project Source moze wygladac tak:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm := False;
Application.Run;
end.---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Wielkie dzieki za odpowiedzi :-)

{brawo} {brawo} {brawo} {brawo} --Ozyrys Pozdrawiam !