Century Aged Delphi Programming

Windows 7 Booter: Make Bootable USB Drives For Installing Windows 7

Win7Booter 0.1 - http://jokorb.wordpress
4 comments on “Windows 7 Booter: Make Bootable USB Drives For Installing Windows 7
  1. muis says:

    procedure TForm1.Button1Click(Sender: TObject);
    type
    TRGBTripleArray = ARRAY[Word] of TRGBTriple;
    pRGBTripleArray = ^TRGBTripleArray; // Use a PByteArray for pf8bit color.
    var
    x,y : Integer;
    bx, by : Integer;
    BitMap, BigBitMap : TBitMap;
    P, bigP : pRGBTripleArray;
    pixForm, bigpixForm : TPixelFormat;
    begin
    BitMap := TBitMap.create;
    BigBitMap := TBitMap.create;
    try
    BitMap.LoadFromFile(‘littlefac.bmp’);
    pixForm := BitMap.PixelFormat;
    bigpixForm := BigBitMap.PixelFormat;
    BitMap.PixelFormat := pf24bit;
    BigBitMap.PixelFormat := pf24bit;
    BigBitMap.Height := BitMap.Height * 2;
    BigBitMap.Width := BitMap.Width * 2;
    for y := 0 to BitMap.Height – 1 do
    begin
    P := BitMap.ScanLine[y];
    for x := 0 to BitMap.Width – 1 do
    begin
    bx := x * 2;
    by := y * 2;
    bigP := BigBitMap.ScanLine[by];
    bigP[bx] := P[x];
    bigP[bx + 1] := P[x];
    bigP := BigBitMap.ScanLine[by + 1];
    bigP[bx] := P[x];
    bigP[bx + 1] := P[x];
    end;
    end;
    Canvas.Draw(0, 0, BitMap);
    Canvas.Draw(200, 200, BigBitMap);
    finally
    BitMap.Free;
    BigBitMap.Free;
    end;
    end;

    bisa minta tolong bagaman caranya menyisipkan”saveDialog dan open dialog”
    karna ini program skripsi ku yaitu buat program memperbesar gambar atau pixel…
    mohon bantuannya….

  2. Joko Rivai says:

    Pertanyaan Anda sudah dijawab di sini.

  3. frans says:

    minta source codex win7boot dong, thx,

  4. frans says:

    ada gak aplikasi penjualan toko, minta dong, thx b4

Leave a Reply

\n
%d bloggers like this: