تشخیص برنامه فعال در ویندوز

[khazaie01]

سلام دوستان
چند وقت پیش فکر کنم تو همین انجمن تاپیکی را دیدم مبنی بر تشخیص پروسه فعال ویندوز،الان به این موضوع نیاز دارم ولی هرچی سرچ کردم چیزی پیدا نکردم !
به چه شکل می توان برنامه فعال در ویندوز را تشخیص داد ؟

ممنوووووووووووووووون

[Felony]

منظورتون چیه ؟ در ویندوز چندین پروسه همزمان در حال فعالیت هستن ...
اگر منظورتون به دست آوردن برنامه فعال و پروسه اون هست به وسیله تابع GetForegroundWindow میتونید هندل پنجره فعال در ویندوز رو به دست بیارید .

[khazaie01]

خیلی خیلی ممنووووووووون دوست عزیز.
بله همانطور که گفتید هدف من بدست آوردن Caption برنامه اکتیو است :


function ActiveCaption: string;
var
Handle: THandle;
Len: LongInt;
Title: string;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
ActiveCaption := TrimRight(Title);
end;
end;