أسئلة مختلفة أرجو المساعدة في إيجاد حل لها

1) هذا يتطلب عمل hook لل Windows explorer بحيث يمكنك ان ترى اي من الملفات و المجلدات تريد الوندوز وضعها و من ثم حذفها... العملية ليست سهلة ولا اعرف غيرها للاسف.

2) http://delphi.about.com/cs/adptips1999/a/bltip1199_2.htm

3)

Function GetDesktopDir():string;
	var ComputerName: String;
	var returnval:string;
	begin
  ComputerName := LeftStr(ComputerName, GetComputerName(ComputerName, Length(ComputerName)));
  returnval := 'C:\Documents and Settings\' + ComputerName + '\Desktop';
  Return returnval;
	End;

1) إن كنت تريد جعل الملف او المجلد مخفي Hidden -وهذا ما فهمته من السؤال- فاستخدم SetFileAttributes

راكان يبدو أنك فهمت السؤال بشكل أخر .

2) إستخدم SHFileOperation والتي تجدها في shlobj . ينبغي اضافة الجملة uses shlobj; حتى تتمكن من استخدام الدالة السابقة .

3) هناك طريقتين

a )

var
 desktoppath:string;
 begin
 setlength(desktoppath,100);
  SHGetSpecialFolderPathA(0,pchar(desktoppath),CSIDL_DESKTOP,false);
  Showmessage(desktoppath);
end;

b )

var
 desktoppath:string;
 pitem:PITEMIDLIST;
 begin
  shGetSpecialFolderLocation(handle,CSIDL_DESKTOP,pitem);
  setlength(desktoppath,100);
  shGetPathFromIDList(pitem,pchar(desktoppath));
  Showmessage(desktoppath);
end;

راكان :

تلك الطريقة غير صحيحة إطلاقاً -حسب وجهة نظري - .

تحياتي

CIONO1

شكرا جزيلا لكم على هذه المساعدة . جزاكم الله خيرا .

شكرا على تصحيح معلوماتي اخ tmaaa و ان شاء الله نستفيد منك اكثر :)

الله معنا الاخ CIONO1 ياعيني :) بعد زمان

الله يعطبك العافية