محمد مقصودلو - کدهای آماده دلفی

هر که براى خدا خشم کرد ، باطل را هر چند سخت بود از پا درآورد . [نهج البلاغه]

کدهای آماده دلفی

یک کد برای متقارن کردن تصویر

یک دکمه و یک تصویر در فرم ایجاد کنید و از کد زیر استفاده کنید:

procedure TForm1.Button1Click(Sender: T);
var a,b:integer;
begin
for a:=0 to Image1.Height-1 do
begin
for b:=0 to Image1.Width-1 do
Image1.Canvas.Pixels[b,a]:=Image1.Canvas.Pixels[a-0,b-0]
end;
//© 2005 koosha system Software http://delphi-center.blogfa.com
end;

محمد مقصودلو ::: چهارشنبه 87/7/24::: ساعت 12:43 عصر

نظرات دیگران: نظر

یک کد جدید برای گرفتن عکس از صفحه نمایش

یک کد جدید برای گرفتن عکس از صفحه نمایش. برای عکس گرفتن از صفحه به طور عمومی یک راه وجود دارد.آن هم این است که برنامه ای بنویسیم که کلید Print Screen بزند و بعد تصویر را از ClipBoard بخواند. این یک راه علمی تر و کم دردسر تر است. این کد کار خود را با TScreen انجام میدهد.

function CaptureScreenRect( ARect: TRect ): TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result, ARect do
begin
    Width := Right - Left;
    Height := Bottom - Top;
    ScreenDC := GetDC( 0 );
    try
      BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
        Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
end;
end;
function CaptureScreen: TBitmap;
begin
with Screen do
    Result := CaptureScreenRect( Rect( 0, 0, Width, Height ));
end;

procedure TForm1.Button2Click(Sender: T);
begin
Image1.Picture.Bitmap:=CaptureScreen
end;//© 2005 koosha system Software http://delphi-center.blogfa.com(برگرفته شده از )

محمد مقصودلو ::: چهارشنبه 87/7/24::: ساعت 12:31 عصر

نظرات دیگران: نظر

تبریک ماه مبارک

ماه مبارک رمضان بر همگان مبارک باد

محمد مقصودلو ::: پنج شنبه 87/6/21::: ساعت 12:53 عصر

نظرات دیگران: نظر

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

برای سایه دار کردن تمام کامپوننت ها در یک فرم از این تابع استفاده کنید:

procedure TForm1.FormPaint(Sender: T);
var
i: Integer;
   procedure MakeShadow(control: TControl; Width: Integer; Color: TColor);
var
    rect: TRect;
    old: TColor;
begin
    // Bordes del control
    // Borders of controls
    rect := control.boundsrect;
    rect.Left := rect.Left + width;
    rect.Top := rect.Top + width;
    rect.Right := rect.Right + width;
    rect.Bottom := rect.Bottom + width;
    // Guardar el color
    // Save the old color
    old := Self.canvas.brush.color;
    // Pintar la sombra
    // Paint the shadow
    Self.canvas.brush.Color := color;
    Self.canvas.fillrect(rect);
    Self.canvas.brush.Color := old;
end;

begin

// Revisar todos los componentes del form
// Go trough all form components
for i:=0 to Self.ControlCount-1 do
    MakeShadow(Self.Controls[i],2,clGray);

end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:32 عصر

نظرات دیگران: نظر

شماره گیری تلفن

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

با استفاده از(TAPI32.DLL)

ابتدا این تابع را بعد از uses قرار دهید:

    function tapiRequestMakeCall(lpszDestAddress,
                                  lpszAppName,
                                  lpszCalledParty,
                                  lpszComment: LPCSTR): DWORD; stdcall;

بعد در قسمت implementation قرار دهید کد زیر را:

function tapiRequestMakeCall; external "TAPI32.DLL" name "tapiRequestMakeCall";

و در مرحله آخر:

     procedure TForm1.Button1Click(Sender: T);
     var
       PhoneNumber: array [0..255] of char;
       AQuien: array [0..255] of char;
     begin
       StrPCopy(PhoneNumber,"666666666");
       StrPCopy(AQuien,"To Satan");
       tapiRequestMakeCall(PhoneNumber,"",AQuien,"");
     end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:25 عصر

نظرات دیگران: نظر

تغییر تاریخ سیستم

از این تابع برای تغییر تاریخ سیستم استفاده کنید

procedure TForm1.Button1Click(Sender: T);

procedure FechaDelSistema(Fecha: TDateTime);
var
    FecSys: TSystemTime;
    nA, nM, nD: Word;
begin
    DecodeDate(Fecha, nA,nM,nD);
    GetLocalTime(FecSys);
    FecSys.wYear := nA;
    FecSys.wMonth := nM;
    FecSys.wDay   := nD;
    SetLocalTime(FecSys);
end;
begin
FechaDelSistema( StrToDate("23/08/2002") );
end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:24 عصر

نظرات دیگران: نظر

تغییر ساعت سیستم

از این تابع برای تغییر ساعت سیستم استفاده کنید
procedure TForm1.Button1Click(Sender: T);
var
   HoraSistema : TSystemTime;
   NewTime:string;
begin
   {New Time}
   {Nueva hora:}
   NewTime:="13:58:00";
   DateTimeToSystemTime( Date+StrToTime(NewTime),HoraSistema);
   SetLocalTime(HoraSistema);
end

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:23 عصر

نظرات دیگران: نظر

چک کردن ایمیل

از این تابع برای چک کردن اینکه ایمیل وارد شده صحیح است استفاده می شود(البته از نظر قواعد ساختاری)

);function IsEMail(EMail: string): Boolean;var s: string;ETpos: Integer;begin ETpos := pos("@", EMail);if ETpos > 1 then begin s := copy(EMail, ETpos + 1, Length(EMail));if (pos(".", s) > 1) and (pos(".", s) < length(s)) then Result := trueelse Result := false;end else Result := false;end; Ejemplo de llamadaCall exampleif IsEMail("pepe@yahoo.com") then ShowMessage("eMail Ok");;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:20 عصر

نظرات دیگران: نظر

فرستادن ایمیل

از این تابع برای فرستادن ایمیل استفاده می شود:

Add "ShellApi" in the uses of your form, and

ShellExecute(GetDesktopWindow(),

nil,pChar("mailto:name@host.com"),nil,nil,SW_SHOWNORMAL);

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:20 عصر

نظرات دیگران: نظر

عکس گرفتن از پنجره فعال

عکس گرفتن از پنجره فعال(توجه عکس گرفته شده در حافظ قرار می گیرد)

keybd_event(vk_snapshot,?, 0, 0);

عکس گرفتن از کل صفحه نمایش کامپیوتر(توجه عکس گرفته شده در حافظ قرار می گیرد)

keybd_event(vk_snapshot,0, 0, 0);

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:20 عصر

نظرات دیگران: نظر

< 1 2 3 4 5 >> >

لیست کل یادداشت های این وبلاگ

بهترین کامپوننت تاریخ شمسی در دلفی 7
یک ساعت فوق العاده
اضافه کردن زبان فارسی به ویندوز XP
یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها
بستن پنجره
پاک کردن برنامه به وسیله ی خودش
دانلود کردن سورس یک سایت
بدست آوردن آدرس جاری IE
پاک کردن آدرسهای IE
آموزش کار با IntraWeb در دلفی
مبدل ها
تصویر به bmp2icon) Icon)
تشخیص اینکه HARD DISK ما چند درایو دارد.
اینم یک برنامه ای که ICON درایوها را تغییر می دهد.
درست کردن فیلتر زرد رنگ روی ایمیج
[همه عناوین(126)][عناوین آرشیوشده]

>> بازدیدهای وبلاگ <<

بازدید امروز: 47

بازدید دیروز: 42

کل بازدید :88522

>> درباره خودم <<

محمد مقصودلو
در این وبلاگ سعی میکنم مطالب مربوط به برنامه نویسی دلفی ، پاسکال و گرافیک رایانه ای 2 بعدی و 3 بعدی را به روز کنم منتظر سوالات شما نیز هستم

>>تست سرعت تایپ<<

9 کلمه

Speed test

>> پیوندهای روزانه <<