Açılışta programı minimize olarak çalıştırmak

[PROGRAMADOR]

Merhaba arkadaşlar,
Başlıktan da anlaşılacağı gibi ben programı başlangıçta minimize olarka çalıştırmak istiyorum. Ancak bu sefer de programı her açışımda minimize olarka çalışmaya başlıyor. Benim istediğim ise sadece Windows açıldığında programın minimize olarak çalışması. Dolayısıyla kullanıcı exe'yi çift tıklayarak açtığında normal şekilde açılmasını istiyorum. Bir fikri olan var mı bu konuda?

[aslangeri]

s.a.
açılışta minimize olması için bir parametre gönderin.
windows açıldığında çalışan kısayola bu parametreyi gönderin.
kolay gelsin.

[PROGRAMADOR]

Windows açıldığında o parametreyi nasıl çalıştırabilirim? Bir başka deyişle programı windows'un çalıştırdığını yani kullanıcının çalıştırmadığını nasıl anlar program?

[F.Atagun]

Sanıyorum sorunun cevabı regeditte saklı

[PROGRAMADOR]

registry ile yapıyorum zaten. ama program açıldığında kullanıcı tarafından açılmadığını, windows tarafından açıldığını nasıl anlataağız programa? kodu nedir?

[khanco]

peki programa windows tarafından çalıştırılmadığını anlatmak mümkünmü kısayola peremetre olarak normal pencerede aç veya önce bat dosyası çalıştırmak gibi. kullanıcı bat dosyasını çalıştırsın oda parametre ile exeyi
veye 2 adet exe 2 exe 1. exe yi normal modda çalıştırsın windows doğrudan 1, exe yi açsın

[mrmarman]

Hocam neden sağı solla gösteriyorsunuz ? Paramstr kullanmayı biliyorsunuzdur. Windows Registry RUN Kısmında tanımlarken program.exe /winstart gibi bir parametre verin. Programdan parametre kontrolü yapın. Böylece programı kullanıcı mı çalıştırdı windows mu anlamış olursunuz..

Başarılar.

[PROGRAMADOR]

örnek bir kod verebilir misiniz??

[mrmarman]

Yaptığın programı Registry'e RUN altına nasıl yazıyorsun aşağıdaki gibi değil mi ?

Kod: Tümünü seç

var key: string;
    Reg: TRegistry;
begin
  key := '\Software\Microsoft\Windows\CurrentVersion\Run';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.CreateKey(Key);
    if Reg.OpenKey(Key,False) then Reg.WriteString('ARMAN', Application.Exename + ' /WinStart');
  finally
    Reg.Free;
  end;
end;

Gördüğün gibi sonuna bir boşluk ile şunu ekledim. Application.Exename + ' /WinStart'

Sonra da Formun OnShow olayında bu parametre'ye baktırdım

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
begin
  if ParamStr(1) = '/WinStart' then Form1.WindowState := wsMinimized;
end;

bu kadar basit. Normal çalıştırılırsa ekran görünecek, windows açılışında parametre alacağından minmized çalışacak.

[PROGRAMADOR]

ilginize teşekkür ederim.