بدست آوردن لیست فایلهای روی دسکتاپ

[Mask]

با سلام
سوالم اینه که چطوری باید وقتی که کاربر بر روی دسکتاپ فوکوس کرد و دسکتاپ به عنوان فرم فعال یا اکتیو قرار گرفت لیست فایلهای روش رو بدست آورد.
ممنون.

[Felony]

برای گرفتن لیست فایل ها اول باید آدرس پوشه Desktop کاربر رو به دست بیارید که میتونید از تابع زیر استفاده کنید :

function GetDeskTopPath : string;
var
shellMalloc: IMalloc;
ppidl: PItemIdList;
PerDir: string;
begin
ppidl := nil;
try
if SHGetMalloc(shellMalloc) = NOERROR then
begin
SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl);
SetLength(Result, MAX_PATH);
if not SHGetPathFromIDList(ppidl, PChar(Result)) then
raise exception.create('SHGetPathFromIDList failed : invalid pidl');
SetLength(Result, lStrLen(PChar(Result)));
end;
finally
if ppidl <> nil then
shellMalloc.free(ppidl);
end;
end;
کتابخانه ActiveX و ShlObj رو به Uses اضافه کنید و بعد به صورت زیر لیست فایل ها و پوشه های موجود تو اون رو به دست بیارید :

var
S: TSearchRec;
begin
if FindFirst(GetDeskTopPath+'\*.*', faAnyFile, S)=0 then
repeat
Memo1.Lines.Add(S.Name);
until (FindNext(S)<> 0);
FindClose(S);
end;

اگر از دلفی 2009 یا 2010 استفاده میکنید میتونید از توابع کتابخانه IOUtils برای به دست آوردن لیست فایل ها استفاده کنید .

[Mask]

ممنون
مشکلم این نیست.
مشکلم اینه که از کجا بفهمم فرم اکتیو الان دسکتاپه؟

[Felony]

به وسیله تابع GetForegroundWindow میتونی هندل فرم فعال تو ویندوز رو بگیری ، بعد برای گرفتن هندل Desktop و مقایسه اون باید از تابع GetShellWindow استفاده کنی که البته توسط دلفی Import نشده و خودت باید Importش کنی :


function GetShellWindow: HWND; stdcall; external user32;

در آخر به صورت زیر میتونی چک کنی که الان فکوس روی Desktop هست یا نه :

if GetForegroundWindow = GetShellWindow then