Teraz mam taki problem, że na formie mam CoolTrayIcon dzięki, któremu okno schodzi do traya przy minimalizacji. Lecz nie potrafię zrobić, żeby minimalizowało się przy starcie ;/, próbowałem ShowWindow, SendMessage i nic. Application.Minimize minimalizuje okno i od razu maksymalizuje(ten efekt jest dobrze widoczny).
Jakieś rady ?
Już sobie poradziłem.
Mam inne pytanie :) Czy to jest poprawne dodanie klucza do rejestru, aby program uruchamiał się przy starcie
Kopiuj
procedure TForm3.dodaj_klucz();
var reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
if not reg.ValueExists('prog) then
reg.WriteString('prog', Application.ExeName);
finally
reg.CloseKey;
reg.free;
end;
end;
Dostaje error : Cannot create key i czy to jest błąd w programie czy może wynika to z faktu, że działam na Viscie i program nie ma uprawnień ?
deusdeus