پیدا کردن آدرس Desktop و My Documents

[Payman62]

جناب RAMA2009اینجا فروم هست هر کی به اندازه وقت یا توانایشش جواب میده و بایدی هم وجود نداره شمام اگه یه سرچ کوچیک میکردین به راحتی جواب والتونو پیدا میکردین

سلام.

مبین جان کاربر RAMA2009 بار اولش نیست که جنجال درست میکنه.

ایشون بسیار قدر نشناس هستند. بعد از اون همه سوال های مختلف که مطرح کردند و جواب گرفتند:

سورس کد فشرده سازی فایل در vb6
تشخیص خاموش شدن/رست شدن/لاگ اف شدن ویندوز در وی بی6
سورس کد جستجوی فایلهای با پسوند خاص، حتی فایلهای hidden
پایین آوردن حجم عکس هنگام ذخیره
ایجاد و حذف فایل در %Temp%
دریافت عکس،تشخیص حجم آن و تشخیص حداکثر کیفیتی که میتونه داشته باشه
bind کردن برنامه vb با یه فایل دیگه
تشخیص رویداد خاص هنگامی که فوکوس روی فرم نیست
مدیریت برنامه ی از قبل باز شده
ERROR SendEmailGmail = .Send
ساخت ستاپ جاسوسی برای برنامه های وی بی
تشخیص اینکه یه فرم show هستش در vb6
برنامه ضبط صفحه کلید(جاسوس)
تشخیص key down و key up ، جداگانه
تشخیص وضعیت زبان جاری صفحه کلید
مخفی شدن برنامه هم از زبانه ی Process و هم از زبانه ی Application
حذف فایل های مخفی
تغییر آیکن هنگام کپی
تسلط به کاربر در محیط safe mode
جستجوی یک رشته درون رشته ی دیگه
هک از طریق IP سیستم

بر میگردن میگن:

ادرس پوشه های مخصوص ویندوز در ادرس خاصی از رجیستری وجود داره

این چه وضعشه آخه!!!
اون از آقای جلالی که عکس vb.net 2010 که کاملا بی ربطه فرستاده،
اینم از شما با این جواب دادنتون!
یه مطلب رو درست حسابی تو این سایت نه پیدا کردیم نه جوابشو گرفتیم!

من مخصوصا این پیغامشون رو نمایان کردم تا همه ببینن و بیشتر ایشون رو بشناسن.

ایشون سابقه قبلی هم دارن. یه نگاهی به تاپیک های زیر بندازید تا بیشتر ایشون رو بشناسید.
تشخیص اینکه یه فرم show هستش در vb6
ERROR SendEmailGmail = .Send
و حالا هم این تاپیک.

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

[Di Di]

به نظرم اصلا ارزش وقت تلف کردن نداره، من دیدم نسبت به این جور کاربرها صرفا سوال هست

یعنی یکی یه چیزی پرسیده، اگر بلد بودم جواب سوال رو می دم ، باز اگر احتیاج به توضیح بیشتر

داشت اگر صلاح دیدم بیشتر راهنمائیش می کنم اما دیگه ضامن فهمیدن یا نفهمیدنش که نیستم

پیمان جان همه که مثل هم نیستن که بالاخره تو هر 100 هزار نفر یه نفر هم تو مخی می شه دیگه!!

[lord_viper]

دستورات زیر باعث میشن که پنجره های مورد نظر باز بشن اما آدرس رو برنمیگردونن :

گفتن که باید از اون تابع استفاده کنید
مثال زیر به دلفی هست میتونین به vb تبدیلش کنین

کد:

function GetSystemPath(Folder: Integer): string;
var
  PIDL: PItemIDList;
  Path: LPSTR;
  AMalloc: IMalloc;
begin
  Path := StrAlloc(MAX_PATH);
  SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
  if SHGetPathFromIDList(PIDL, Path) then
    Result := Path;
  SHGetMalloc(AMalloc);
  AMalloc.Free(PIDL);
  StrDispose(Path);
end;

Now you can call this function with different parameters. For example:
CSIDL_DESKTOP for WINDOWS\Desktop
CSIDL_DESKTOPDIRECTORY for WINDOWS\Desktop
CSIDL_FONTS for WINDOWS\FONTS
CSIDL_NETHOOD for WINDOWS\NetHood
CSIDL_PERSONAL for X:\My Documents
CSIDL_PROGRAMS for WINDOWS\StartMenu\Programs
CSIDL_RECENT for WINDOWS\Recent
CSIDL_SENDTO for WINDOWS\SendTo
CSIDL_STARTMENU for WINDOWS\Start Menu
CSIDL_STARTUP for WINDOWS\Start Menu\Programs\StartUp
CSIDL_TEMPLATES for WINDOWS\ShellNew

[behzady]

از این کامپوننت هم میشه استفاده کرد