Minimize

[eduran]

selam arkadaşlar.
easy cafe tarzı bir program yaptım. öğrenci bilgisayarının ekranı kilitliyor-açıyor. fakat nadiren de olsa kendi formum ekranı kaplamıyor. özellikle DOS oyunlarında. bilgisayar, ekranı kilitle mesajını alıyor fakat kendi formum arka planda çalışıyor. oyundan çıkınca bunu gördüm. bunu düzeltmek için ne yapabilirim? diğer çalışan tüm programları minimize etmem bir çözüm olur mu? Bunu nasıl yapabilirim? Teşekkür ederim.

[mege]

viewtopic.php?p=10252#10252

bence başka bir çözüm bulsanız daha iyi ama.. bu arama sonucu
@mrmcop a ait

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
 WindowsNumarasi : THandle;
 WindowsAdi      : String;
 ProgAdi         : String;
begin
  WindowsAdi := 'SciCalc';
  ProgAdi    := 'Calc.exe';
  WindowsNumarasi := FindWindow(PChar(WindowsAdi), Nil);
  If IntToStr(WindowsNumarasi) = '0'
     then  WinExec( pChar(ProgAdi) , SW_MAXIMIZE)
     else  SetForegroundWindow(WindowsNumarasi);
end;

[eduran]

sanırım başka bir çözüm bulmalıyım. önerdiğiniz kod çalışıyor aslında ama benim programımda çalışmıyor. aynı şekilde formum arka planda çalışıyor. dos programlarında böyle yapıyor. neyse ilgilendiğiniz için teşekkür ederim.

[husonet]

Aslında düşündümde HOOK olayını araştırsanız HOOK hakında bilgim yok ama bu tip şeyler yapılabilir die duymuştum yinede bir araştırmakta fayda var.

Kolay Gelsin...

[derya]

Kendi formunuzu ön plana almak için belki buradaki kod işinize yaraya bilir.