delphi4arab منتديات دلفي للعرب
إخفاء البرنامج بالدلفي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إخفاء البرنامج بالدلفي (/showthread.php?tid=8138)



إخفاء البرنامج بالدلفي - صعب الوصايف - 14-09-2016

السلام عليكم ورحمة الله وبركاتة

أمر  form11.Hide
الأستفسار الاول اخفاء البرنامج عن الأعين  بحيث عند ضغط يعمل البرنامج لاكن لايضهر  وتشغيله مع بدء التشغيل
------

والأستفسار الثاني نسخ نفسه في مكان ماء احدده


RE: إخفاء البرنامج بالدلفي - Agmcz - 14-09-2016

وعليكم السلام
لا أعرف إلى ماذا تلمح بالضبط
إذا كان إخفاء النماذج (Forms) فالأمر سهل
أما إذا كنت تقصدإخفاء العملية (من إدارة المهام) فالأمر ليس سهل
للإستزادة راجع:
إخفاء البرنامج بالدلفي
http://delphi4arab.net/forum/showthread.php?tid=3684
كيف اجعل بروسيس برنامجي لا يظهر في task manager -مديرالمهام
http://delphi4arab.net/forum/showthread.php?tid=370


RE: إخفاء البرنامج بالدلفي - صعب الوصايف - 15-09-2016

يعطيك العافية
إقتباس :إذا كان إخفاء النماذج (Forms) فالأمر سهل
نعم هذا هو المقصد لاكن جميع الفورمات داخل البرنامج لاتضهر form1 form2 form3 الخ ..
لأن انا مخفيه بالطريقة المؤقت عن طريق التايمر ضايف hide لاكن هل فيه طرق اخرى
-
والشي الثاني كيف اجعل برنامج يعمل مع بدء التشغيل بكل انظمة ويندوز 8 7 xp 10


RE: إخفاء البرنامج بالدلفي - Agmcz - 15-09-2016

ما الغاية من إخفائها
وهل ستظهر في حدث معين
أم أنك لا تحاجها وضح أكثر لنفهم ما تريد أن تفعل بالضبط


RE: إخفاء البرنامج بالدلفي - wadoud - 15-09-2016

السلام عليكم
ألق إطلالة على المقال التالي وهو بالأعجمية:
http://w-shadow.com/blog/2006/09/21/hiding-from-nt-taskmanager/
والله هو الموفق.


RE: إخفاء البرنامج بالدلفي - onexite - 16-09-2016

PHP كود :
اضافة الى بدأ التشغيل

uses
   Registry
;
 
 
procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);
 const
 
  RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
 
  // or: RegKey = '\Software\Microsoft\Windows\CurrentVersion\RunOnce';
 
var
 
  Registry: TRegistry;
 
begin
   Registry 
:= TRegistry.Create;
 
  try
     Registry
.RootKey := HKEY_LOCAL_MACHINE;
 
    if Registry.OpenKey(RegKey, False) then
     begin
       if bRegister 
= False then
         Registry
.DeleteValue(AppTitle)
 
      else
         Registry
.WriteString(AppTitle, AppName);
 
    end;
 
  finally
     Registry
.Free;
 
  end;
 
end;
 
 
// Example:
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
   
// 1.Parameter: Path to your Exe-File
 
  // 2. Parameter: the Title of your Application
 
  // 3. Set (true) or Unset (false) Autorun
 
  SetAutoStart(ParamStr(0), 'Title of your Application', True);
 
end; 
ولاخفاء الفورم عند بداية التشغيل
سيكون عليك اضافة برامتر الى مسار البرنامج في الرجستري مثلا

;c:\project1.exe /hide
;وفي البرنامج

PHP كود :
begin

if pos('/hide',ParamStr(1))<>0 then
hide
;