witajcie Towarzysze niedoli ! :|
Ostatnio pytalem o minimalizowanie do traya. Ale sa takie oto problemy:
1. uruchamianie programu podczas wlaczania sie kompa dziala - ale co zrobic zeby uruchamial sie od razu w tray'u??
a) dodanie programu do autostartu odbywa sie poprzez taki kod:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('Pakerek',ParamStr(0)+' /tray');
Reg.CloseKey;
Reg.Free;
end;
b) oto kod ktory jest odpowiedzialny za uruchomienie programu przy autostarcie i wrzycenie go do traya - TYLE ZE WLASNIE COS NIE DZIALA :(
procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount > 0 then
if ParamStr(1) = '/tray' then
Form1.Hide;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
if schowaj=true then
begin
Form1.Hide;
schowaj := false;
end;
end;
co jest nie tak w powyzszym kodzie?:( uruchamiam kompa juz chyba po raz 20sty i tylko pozostaje walic glowa o klawiature :(
2. Usuwanie z autostartu odbywa sie poprzez taki kod i tez nie dziala:
procedure TForm1.Button2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run', true);
Reg.DeleteValue('Pakerek');
Reg.CloseKey;
Reg.Free;
end;
dlaczego nie chce usunac z autostartu ? :(
z gory dzieki za poswiecony czas .. no i za pomoc rzecz jasna :( [sciana]