با سلام.
میخوام یک تصویر را در محل مشخصی از دسکتاپ بدون تغییر تصویر دسکتاپ هک کنم.
مرسی
Printable View
با سلام.
میخوام یک تصویر را در محل مشخصی از دسکتاپ بدون تغییر تصویر دسکتاپ هک کنم.
مرسی
لطفا واضح تر توضیح بدید !
چی رو میخواهید هک کنید ؟؟
مثل اینکه سوء تفاهم شده. منظورم از هک یعنی درج میباشد. میخوام یک تصویر را بر روی تصویر موجود در دسکتاب درج کنم و بعد از یک ساعت آن را بردارم. مثل نمایش تقویم بر روی دسکتاپ و یا هر چیز دیگر
سلام
ميتونيد مستقيم روي دسكتاب بنويسيد و يا مي تونيد تصوير بكگراند را عوض كنيد.
بالاخره هک یا حک ؟!نقل قول:
نقل قول:
هی بابا سیستم آموزشی مملکته دیگه ،آخرش اینجوری میشه ،خب برای اینکه اشتباه نکنید از این به بعد به هک بگید رخنه گر :27: حکم که همون حکه دیگه
سلام
لطفا در رابطه با موضوع تاپيك پست بزنيد.
کد:procedure TForm1.WriteText(TransText: string);
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
begin
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clRed;
MyCanvas.Font.Name := 'Courier New';
MyCanvas.Font.Size := 60;
SetBkMode(MyCanvas.Handle, TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(0, 0, TransText);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WriteText('Hello P30World');
end;
نقل قول:
این چیه و باید کجا تایپش کنیم؟
تعريف تابع رو به صورت زير در قسمت type بنويسيد:
اين تابع با استفاده از كلاس TCanvas روي دسكتاپ نقاشي ميكشه!کد:
جناب NoneForce خیلی جالب بود. ولی بعد از اینکه یه فرمی روش میاد از بین میره. یه چیزی باشه که ماندگار باشه مگه اینکه خودمون بخواهیم حذفش کنیم.
مرسی. ممنون از توجهتون