سلام.
کد اول:
میخوام برنامه اصلا توی Task Manager نباشه.
کد دوم:
میخوام برنامه با شروع ویندوز اجرا بشه.
هرچه زودتر این کدا بدستم برسه خیلی بهتر میشه.مرسی
Printable View
سلام.
کد اول:
میخوام برنامه اصلا توی Task Manager نباشه.
کد دوم:
میخوام برنامه با شروع ویندوز اجرا بشه.
هرچه زودتر این کدا بدستم برسه خیلی بهتر میشه.مرسی
جواب درخواست اولتون
procedure EnableTaskBar(bShow: Boolean) ;
begin
if bShow = True then
EnableWindow(FindWindow('Shell_TrayWnd', nil), TRUE)
else
EnableWindow(FindWindow('Shell_TrayWnd', nil), FALSE) ;
end;
برای درخواست دومتون باید سرویس بنویسین یا اینکه برنامه را در startup بذاری
جواب سوال دوم شما :
طریقه فراخوانی :کد:procedure RunOnStartup(sProgTitle,sCmdLine:string;bRunOnce:boolean);
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then
sKey := 'Once'
else
sKey := '';
reg := TRegIniFile.Create('');
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run' + sKey + #0,sProgTitle,sCmdLine );
reg.Free;
end;
کد:RunOnStartup('file_name',Application.ExeName,false);
RunOnStartup('DeskTop_Lock',Application.ExeName,false);
خیلی خیلی ممنون.
دستتون درد نکنه.