بدست آوردن تایتل برنامه و ویرایش آن

[emprator2009]

سلام به همگی ببخشید من یک سورسی میخواستم که بتونه تایتل برنامه های exe رو به دست بیاره و بتونه اون ها رو ویرایش کنه.
ممنون میشم اگر سورسی دارید بهم بدید.

[olkamiz]

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;

[emprator2009]

مرسی دوست عزیز
میشه طرز کار این سورس رو بگید و اگر میتونید برنامه رو به صورت پروژه ضمیمه کنید خیلی خیلی ممنون میشم.

[vahid_visualbasic]

فکر می کنم از این پروژه کمی استفاده منفی در اینده بشه.خیلی از نرم افزارها هست که اسم برنامه نویس فقط توی title نرم افزار نوشته شده و با تغیر title نرم افزار به اسم کسه دیگه ای میشه.بهتره دوستان این پروژه هارو برای کسی در اینجا قرار ندن . ضربشو در اینده خودمون میخوریم. از ما گفتن بود!!

[emprator2009]

من اصلا قصد چنین کاری رو ندارم دوست عزیز. چون این کار دیگه اند نامردیه ولی من به خاطر یک کار دیگه این سورس رو می خواستم اگر کسی داره این سورس رو برام خصوصی کنه.
مرسی

[olkamiz]

کد اجرایی برنامه.
از هر چیزی می توان استفاده مثبت و منفی کرد. ما فرض می کنیم استفاده مثبت است. تازه اگر کسی هم خواست استفاده منفی کند با نگفتن ما باز هم روش اش را پیدا خواهد کرد . پس فرض استفاده مثبت به نظر من بهتر است.

[reza_akbari2009]

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