Witam,
To mój drugi artykuł , który też może mieć niewielkie błędy , chodź starałem się żeby miał ich jak najmniej .
Zaczynajmy!
***Spis Treści***
1. Co będzie nam potrzebne ?
2. Tworzymy nie widzialną aplikacje !
***Koniec spisu treści***
1.
Jedyne co będzie nam potrzebne to Delphi 7 Personal , logiczne myślenie, mózg, i czytanie ze zrozumieniem 😉
2.
Jeśli chcecie,możecie coś dać na formę,ale niezbyt sie opłaca,bo i tak aplikacja będzie ukryta w systemie.
Wciskamy CTRL i F12 . Wyświetli nam się takie okienko :
Klikamy raz na „Project1” i wciskamy OK.
Powinien nam sie wyświetlić taki kod :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. |
Między Application.Initialize; a Application.CreateForm(TForm1, Form1); wklejamy kod
|
1 |
Application.ShowMainForm:=False; |
Powinno wyglądać to tak :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.ShowMainForm:=False; Application.CreateForm(TForm1, Form1); Application.Run; end. |
Uruchamiamy aplikacje wciskając F9 (lub z górnego menu Run>Run)
Jak widzimy,aplikacji nie widać, to już sukces! Lecz czy aby na pewno? Wciśnijmy ctrl alt delete i zobaczymy, że na liście procesów jest Project1.exe . Jeśli nie chcemy , by było tam widoczne, kliknijmy 2 razy na formie (tak żeby powstało zdarzenie OnCreate) i wpisujemy kod :
|
1 |
Application.Title:=' '; |
Ten kod sprawi, że system będzie widział nasz program pod pustą nazwą, co sprawi , że nie będzie widoczne na liście procesów.
To już wszystko 🙂 Prawda,że proste?
Mam nadzieję,że artykuł komuś na coś sie przydał.
Autor: ZooMpl