Programım Belli Bir .exe Açıksa Çalışmaya Başlasın
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Programım Belli Bir .exe Açıksa Çalışmaya Başlasın
Merhaba arkadaşlar.Ekran görüntüsü alan bir proje yaptım.Bu projede programımım diyelim ki notepad.exe açıksa görüntü almaya başlasın istiyorum.Bunu nasıl yapabilirim? Yardımlarınız için şimdiden teşekkürler...
Re: Programım Belli Bir .exe Açıksa Çalışmaya Başlasın
Process (Çalışan Uygulamalar) listesini bir memoya al. Timer ile memo içindeki uygulamaları 'notepad.exe' ile sürekli karşılaştır. Eğer sonuç pozitifse kodlarını işlet.
Re: Programım Belli Bir .exe Açıksa Çalışmaya Başlasın
Çok teşekkürler : )G.Arkas yazdı:Process (Çalışan Uygulamalar) listesini bir memoya al. Timer ile memo içindeki uygulamaları 'notepad.exe' ile sürekli karşılaştır. Eğer sonuç pozitifse kodlarını işlet.
Re: Programım Belli Bir .exe Açıksa Çalışmaya Başlasın
Bir timer e bu alttaki kodu yazın
Kod: Tümünü seç
procedure TForm1.Timer1Timer(Sender: TObject);
var
ih:HWND;
begin
ih:=FindWindow(nil,'Windows Live Messenger');
if ih<>0 then
begin
ShowMessage('MSN MessengerÇalışıyor- Artık gerisi size kalmış');
//form1.Show;
end
else
//form1.Hide;
end;
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;