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

مقصود از روزی گوارا، دانش است . [امام باقر علیه السلام درباره این کلام خدای متعال «و ما آنها را از چیزهای گوارا روزی دادیم»فرمود]

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

بازسازی کل صفحات اینترنت باز شده

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

uses
MSHTML_TLB, SHDocVw_TLB;

procedure TForm1.Button1Click(Sender: T);
var
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
k: Integer;
begin
ShellWindow := CoShellWindows.Create;
for k := 0 to ShellWindow.Count do
begin
   spDisp := ShellWindow.Item(k);
   if spDisp = nil then Continue;
   spDisp.QueryInterface(iWebBrowser2, WB);
   if WB <> nil then
   begin
     WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
     if iDoc1 <> nil then
     begin
       WB := ShellWindow.Item(k) as IWebbrowser2;
       WB.Refresh;
     end;
   end;
end;
end;

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

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

عکس گرفتن از فرم برنامه خود و ذخیره آن در حافظه رم

برای عکس گرفتن از فرم برنامه خود و ذخیره آن در حافظه رم

procedure TForm1.Button1Click(Sender: T);
var bitmap:tbitmap;
begin
bitmap:=tbitmap.create;
bitmap.width:=clientwidth;
bitmap.height:=clientheight;
try
    with bitmap.Canvas do
      CopyRect (clientrect,canvas,clientrect);
    clipboard.assign(bitmap);
finally
    bitmap.free;
end;
end;

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

عکس گرفتن از استرینگ گرید و ذخیره آن در حافظه رم و خروجی به صورت

برای عکس گرفتن از استرینگ گرید و ذخیره آن در حافظه رم و خروجی به صورت عکس

Function GetBitmapOfStringGird(const WinControl_:TStringGrid) :TBitmap;
var bitmap:tbitmap;
begin
Result:=tbitmap.create;
bitmap:=tbitmap.create;
bitmap.width:=WinControl_.clientwidth;
bitmap.height:=WinControl_.clientheight;
try
    with bitmap.Canvas do
      CopyRect (WinControl_.clientrect,WinControl_.canvas,WinControl_.clientrect);
    clipboard.assign(bitmap);
    Result.Assign(bitmap);
finally
    bitmap.free;
end;
end;

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

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

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

var
    i:Integer;
begin
    i := Screen.FormCount;
    MessageDlg(IntToStr(i) + " formularios en pantalla/forms in screen", mtInformation, [mbOK], 0);
    for i := 0 to (Screen.FormCount - 1) do begin
     Screen.Forms[i].Caption := "Form: " + IntToStr(i);
    end;

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

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

موقعیت قرار گیری موس بر روی کامپوننت و گرفتن خصوصیات آن کامپوننت

با استفاده از این روش شما می توانید با استفاده موقعیت قرار گیری موس بر روی کامپوننت مورد نظر متن و دیگر خصوصیات آن را بدست بیاورید

procedure TForm1.PopupMenu1Popup(Sender: T);
var
   Cur : TPoint;
begin

      GetCursorPos(Cur);
   label2.caption:=FindControl(windowfrompoint( Cur )).Name;
   if FindControl(windowfrompoint( Cur )).ClassType =TEdit then
      label1.caption:=TEdit(FindControl(windowfrompoint( Cur ))).Text;
   if FindControl(windowfrompoint( Cur )).ClassType =TDBEdit then
      label1.caption:=TDBEdit(FindControl(windowfrompoint( Cur ))).Field.AsString;
end

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

جستجو و پیدا کردن کامپوننت ها در زمان اجرا

در بسیاری از موارد ما به دنبال پیدا کردن کامپوننت ها در برنامه خود در زمان اجرا هستیم با استفاده از روش شما می توانید به کامپوننت های خود را جستجو کرده و پس از پیدا شدن از آن استفاده نمایید

TButton( FindComponent("Button"+IntToStr(5)) ).Caption:="WWW . DELPHI CENTER . COO . IR";

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

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

تعریف دوباره و تغییر در اجرای توابع ای پی آی ویندوز

شیوه تعریف دوباره و تغییر در اجرای توابع ای پی آی ویندوز برای استفاده در برنامه خود

type PImportJump = ^TImportJump;
     TImportJumP = packed record
                     JMP : WORD;
                     Proc : ^POINTER;
                   end;

function NewRectangle(_handle: THANDLE; _left, _top, _right, _bottom: integer): BOOL; stdcall;
begin
ShowMessage(IntToStr(_right - _left) + "x" + IntToStr(_bottom - _top));
end;

procedure TForm1.FormCreate(Sender: T);
var p : PImportJump;
    OldProtect : INTEGER;
begin
p := @Windows.Rectangle;
if VirtualProtect(p^.Proc, 4, PAGE_EXECUTE_READWRITE, @OldProtect) = false then halt;
p^.Proc^ := @NewRectangle;
if VirtualProtect(p^.Proc, 4, OldProtect, @OldProtect) = false then halt;
end;

procedure TForm1.Button1Click(Sender: T);
begin
Windows.Rectangle(Form1.Canvas.Handle, 10, 10, 100, 100);
end

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

حذف کردن تمام فایل های داخل یک پوشه

procedure TForm1.Button1Click(Sender: T);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst("C:\Download\Test\*.*", FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar("C:\Download\test\" + DirInfo.Name))
         = false then
{Si no puede borrar el fichero}
       ShowMessage("Unable to delete : C:\Download\test\" +
                   DirInfo.Name);
    r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
if RemoveDirectory("C:\Download\Test") = false then
{Si no puedes borrar el directorio}
    ShowMessage("Unable to delete dirctory : C:\Download\test");
end;

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

گرفتن مسیر دایرکتوری های ویژه ویندوز

procedure TForm1.Button1Click(Sender: T);


function ObtienePath(De:String):string;
var
  Registro: TRegIniFile;
begin
  Registro :=TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer");

  Result:= Registro.ReadString("Shell Folders",De,"");

  Registro.Free;
end;


begin
  ListBox1.TabWidth:=130;

  ListBox1.Columns:=2;

  with ListBox1.Items do
 begin
    Add("Escritorio/Desktop:"                +^I+ObtienePath("Desktop"));

    Add("Favoritos/Favorites:"               +^I+ObtienePath("Favorites"));

    Add("Fonts/Fonts:"                       +^I+ObtienePath("Fonts"));

    Add("Mis Documentos/My Documents:"       +^I+ObtienePath("Personal"));

    Add("Inicio->Programas/Start->Programs:" +^I+ObtienePath("Programs"));

    Add("Ficheros Recientes/Recent Files:"   +^I+ObtienePath("Recent"));

    Add("Menu Inicio/Start Menu:"            +^I+ObtienePath("Start Menu"));

    Add("Inicio/StartUp:"                    +^I+ObtienePath("Startup"));

  end;
end;

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

  ShellExecute(Form1.Handle,

               nil,

               PChar(ObtienePath("Personal")),

               nil,nil,SW_SHOWNORMAL);

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

نحوه ساخت یک بانک اطلاعاتی در حال اجرا

procedure TForm1.Button1Click(Sender:T);
begin
 if not Table1.Exists then
 begin
    Table1.Active       := FALSE;

    {Aqui el Alias/Here, the alias}
    Table1.DatabaseName := "Alias";

    Table1.TableType    := ttParadox;

    {Aqui el nombre de la tabla/Here, the Table name}
    Table1.TableName    := "Nombre de la Tabla";

    with Table1.FieldDefs do
 begin
      Clear;

      Add("IntegerField", ftInteger,  0, FALSE);

      Add("StringField" , ftString , 30, FALSE);

      Add("LogicalField", ftBoolean,  0, FALSE);

      Add("FloatField"  , ftFloat  ,  0, FALSE);

      Add("DateField"   , ftDate   ,  0, FALSE);

      Add("TimeField"   , ftTime   ,  0, FALSE);

    end;

    Table1.CreateTable;

  end;
end;

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

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

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

< << 6 7 8 9 10 >> >

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

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

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

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

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

کل بازدید :88547

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

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

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

9 کلمه

Speed test

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