دسترسی به program Files

[bmanfy]

سلام دوستان
چه طوری میشه به شاخه ی program file و start Up دسترسی داشت.
یعنی چطوری میتونم پیداش کنم

[V60]

لطف کن سوالات را کامل تر بیان کن

[Mahyaa]

اینا رو ببین :

http://www.delphipages.com/threads/t...67983&G=167958
http://www.delphipages.com/threads/t...58711&G=158704

[bmanfy]

لطف کن سوالات را کامل تر بیان کن

منظور من اینه که چطور میشه اذرس start up ویندوز رو پیدا کرد
د رکل من میخوام یه برنامه رو در start up ویندوز قرار بدم یا یه شاخه ی جدید تو program menu بسازم

[dkhatibi]

منظور من اینه که چطور میشه اذرس start up ویندوز رو پیدا کرد
د رکل من میخوام یه برنامه رو در start up ویندوز قرار بدم یا یه شاخه ی جدید تو program menu بسازم

این دو پوشه برای هر کاربر متفاوت است (البته می تواند برای همه کاربران هم یکسان گردد)
مسیر پوشه StartUp به شکل زیر است

C:\Documents and Settings\نام کاربر\Start 

Menu\Programs\Startup

و پوشه ی Program Files بزای همه ی کاربران به شکل زیر است.

C:\Documents and Settings\All Users\Start Menu\Programs\

که می توان نام کاربر را با All Users و برعکس عوض کرد.

شما برای به دست آوردن این مسیر کافیه مسیر نصب ویندوز(درایو نصب) و نام کاربر جاری را به دست آورید و به راحتی می توانید مسیر را بسازید.
البته شاید تابع مستقیم هم داشته باشد!!!

اگر می خواهید به برنامه ی خود حالت نصبی بدهید از Inastall Shield که به همراه دلفی موجود است استفاده کنید.

[حرفه ای]

سلام دوستان
چه طوری میشه به شاخه ی program file و start Up دسترسی داشت.
یعنی چطوری میتونم پیداش کنم

کد زیر رو تست کن بد نمی بینی

Function  ProgramFileDir  :string;

Var

  Registry: TRegistry;

Begin

  Registry:=TRegistry.Create;

  Registry.RootKey:=HKEY_LOCAL_MACHINE;

  Registry.OpenKey('\SOftware\MicrosOft\Windows\Curr  entVersion',True);

  Result :=Registry.ReadString('ProgramFilesDir');

  Registry.Free;

End;

[bmanfy]

[quote=dkhatibi;297243]این دو پوشه برای هر کاربر متفاوت است (البته می تواند برای همه کاربران هم یکسان گردد)
مسیر پوشه StartUp به شکل زیر است

C:\Documents and Settings\نام کاربر\Start 

Menu\Programs\Startup

و پوشه ی Program Files بزای همه ی کاربران به شکل زیر است.

C:\Documents and Settings\All Users\Start Menu\Programs\

که می توان نام کاربر را با All Users و برعکس عوض کرد.



خوب درسته اما مشکل منم همینه که نمیتونم شاخهی نصب ویندوز رو پیدا کنم
و در باره ی انستال شید
من خودم واسه برنامم انستالش رو نوشتم
و با انستال شید یه کم مشکل دارم
و هم چنین صبح کد مربوط به شاخه ها رو پیدا کردم
اگه بخواهید میتونم در اختیارتون بذارم
با تشکر .

[dkhatibi]

InstallShield خیلی راحته! تو این سایت مطلب در موردش پیدا می کنی!

اما برای پیدا کرد مسیر ویندوز این لینک را ببینید
http://www.barnamenevis.org/sh...3B%E4%CF%E6%D2

[vcldeveloper]

uses

  ShlObj;

type

  TSpecialFolderName = (sfCommon_Startup, sfStartup, sfPrograms);



function GetSpecialFolderPath(Folder: TSpecialFolderName): string;

var

  TmpStr : array [0..Max_Path] of char;

  nFolder : integer;

begin

  nFolder := 0;

  case Folder of

    sfCommon_Startup : nFolder := CSIDL_COMMON_STARTUP;

    sfStartup        : nFolder := CSIDL_STARTUP;

    sfPrograms       : nFolder := CSIDL_PROGRAMS;

    //Add other special folders ID

  end;

  if SHGetSpecialFolderPath(0,TmpStr,nFolder,False) then

    Result := Trim(TmpStr) + '\'

  else

     //if there is an error in finding the folder's path, return an undefined

     //text. Note that blank result returns the current folder!

     Result := 'NO PATH';

end;

[حرفه ای]

دوست خوبم آقای کشاورز

کد جالبی بود !

موفق باشید

[delphi5]

 

 

 

    sfCommon_Startup : nFolder := CSIDL_COMMON_STARTUP;

    sfStartup        : nFolder := CSIDL_STARTUP;

    sfPrograms       : nFolder := CSIDL_PROGRAMS;

    //Add other special folders ID

 

لیست این ID ها رو از کجا میشه بدست آورد ؟

[delphi5]

از اینجا
:P
http://msdn2.microsoft.com/en-us/library/bb762494.aspx

[IISecurity.C]

با سلام

من این سوال روی جای دیگه پرسیده بودم که نمیدونم برای چی قفل شد !!= https://barnamenevis.org/showthread.php?t=96919

خوب حالا :

uses

  ShlObj;

type

  TSpecialFolderName = (sfCommon_Startup, sfStartup, sfPrograms);



function GetSpecialFolderPath(Folder: TSpecialFolderName): string;

var

  TmpStr : array [0..Max_Path] of char;

  nFolder : integer;

begin

  nFolder := 0;

  case Folder of

    sfCommon_Startup : nFolder := CSIDL_COMMON_STARTUP;

    sfStartup        : nFolder := CSIDL_STARTUP;

    sfPrograms       : nFolder := CSIDL_PROGRAMS;

    //Add other special folders ID

  end;

  if SHGetSpecialFolderPath(0,TmpStr,nFolder,False) then

    Result := Trim(TmpStr) + '\'

  else

     //if there is an error in finding the folder's path, return an undefined

     //text. Note that blank result returns the current folder!

     Result := 'NO PATH';

end;

که برای My Documents باید اینجوری بشه !!

uses

  ShlObj;

type

  TSpecialFolderName = (sfMy Documents);



function GetSpecialFolderPath(Folder: TSpecialFolderName): string;

var

  TmpStr : array [0..Max_Path] of char;

  nFolder : integer;

begin

  nFolder := 0;

  case Folder of

    sfMy Documents : nFolder := CSIDL_PERSONAL;



    //Add other special folders ID

  end;

  if SHGetSpecialFolderPath(0,TmpStr,nFolder,False) then

    Result := Trim(TmpStr) + '\'

  else

     //if there is an error in finding the folder's path, return an undefined

     //text. Note that blank result returns the current folder!

     Result := 'NO PATH';

end;

و حالا ما اینکار رو انجام دادیم و مسیر مشخص شد حالا میخوایم یه فایل با نام file.exe را در مسیر پاک کنیم = C:\Documents and Settings\User\My Documents

حالا باید چکار کرد و کد Delete File رو کجا باید اضافه کرد !!! (لطفا کدی که edit کردم رو ببینید درست هست !! )

ممنون

[vcldeveloper]

وقتی فقط با My Document کار دارید، نیازی به تمام اون کد ندارید:

uses

  ShlObj;



function GetMyDocument: string;

var

  TmpStr : array [0..Max_PATH] of char;

begin

  if SHGetSpecialFolderPath(0,TmpStr,CSIDL_PERSONAL,Fal  se) then

    Result := Trim(TmpStr) + '\';

end;

مثالش برای حذف یک فایل هم میشه یه چیزی مثل این:

DeleteFile(GetMyDocument + 'MyFileName.txt');