To jest moje oncreate
procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount > 0 then
if ParamStr(1) = '/tray' then
Form1.Hide; *minimalizacja traya
*OD TRAYA
with IconNotifyData do
begin
hIcon:=Application.Icon.Handle;
uCallbackMessage:=WM_USER+1;
cbSize:=SizeOf(IconNotifyData);
Wnd:=Handle;
uID:=100;
uFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
end;
- Kopiujemy tytuł aplikacji jako "dymek"
StrPCopy(IconNotifyData.szTip, Application.Title{+'Do zmany tapety pozostało '+inttostr(ilec)});
- Dodajemy ikonę do traya
Shell_NotifyIcon(NIM_ADD,@IconNotifyData);
//------------KONIEC TRAYA------------------------
pobieranie(sender);
plik:=TIniFile.Create(temp+'\Architekt.ini');
tablica[1]:=plik.ReadString('Sciezki','pos1',(tablica[1]));
tablica[2]:=plik.ReadString('Sciezki','pos2',(tablica[2]));
tablica[3]:=plik.ReadString('Sciezki','pos3',(tablica[3]));
tablica[4]:=plik.ReadString('Sciezki','pos4',(tablica[4]));
tablica[5]:=plik.ReadString('Sciezki','pos5',(tablica[5]));
tablica[6]:=plik.ReadString('Sciezki','pos6',(tablica[6]));
tablica[7]:=plik.ReadString('Sciezki','pos7',(tablica[7]));
tablica[8]:=plik.ReadString('Sciezki','pos8',(tablica[8]));
tablica[9]:=plik.ReadString('Sciezki','pos9',(tablica[9]));
tablica[10]:=plik.ReadString('Sciezki','pos10',(tablica[10]));
tablica[11]:=plik.ReadString('Sciezki','pos11',(tablica[11]));
tablica[12]:=plik.ReadString('Sciezki','pos12',(tablica[12]));
end;
a tu dodaje do rejestru
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if form2.ComboBox1.ItemIndex=0 then
begin
showmessage('Nie ustawiles czasu');
end;
if form2.ComboBox1.ItemIndex<>0 then
form2.close;
form1.pobieranie(sender);
plik:=TIniFile.Create(temp+'\Architekt.ini');
plik.WriteInteger('Czas','po',combobox1.itemindex);
jaka:=tablica[1]; t:=1;
czasy(Sender);
form1.pobieranie(sender);
plik:=TIniFile.Create(temp+'\Architekt.ini');
plik.WriteInteger('Czas','t',t);
plik.WriteInteger('Czas','ilec',ilec);
if form2.CheckBox1.Checked=true then
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteString('Architekt pulpitu',ParamStr(0)+'/tray');
end else
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
Reg.DeleteValue('Architekt pulpitu');
plik.WriteBool('start','tak',form2.CheckBox1.Checked);
end;
i tak nie dziala
jak jest Reg.WriteString('Architekt pulpitu',ParamStr(0)+'/tray');
if ParamStr(1) = '/tray' then
to program teraz wcale nieodpala ja wymiękam
a jak jest Reg.WriteString('Architekt pulpitu',ParamStr(0)+' /tray');
if ParamStr(1) = ' /tray' then
to odpala sie normalnie,a różnie sie tylko spacją przed /tray
Co by tu zrobić???
--
Pozrowienia {hello}
Waldi Koronowo
[email protected]