الحصول على اسم ال cpu

// حمل ملف excel في الـ stringgrid

uses
  ComObj;

function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean;
const
  xlCellTypeLastCell = $0000000B;
var
  XLApp, Sheet: OLEVariant;
  RangeMatrix: Variant;
  x, y, k, r: Integer;
begin
  Result := False;
  // إنشاء كائن من نوع Excel-ole
  XLApp := CreateOleObject('Excel.Application');
  try
    // إخفاء تطبيق الـ Excel في حال كان يعمل
    XLApp.Visible := False;

    // إفتح WorkBook
    XLApp.Workbooks.Open(AXLSFile);

    // Sheet := XLApp.Workbooks[1].WorkSheets[1];
    Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1];

    // ولكي تعرف عدد الأسطر والأعمدة المستخدمة سنفعل اخر خلية مستخدمة منها
    Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
    // الحصول على رقم السطر الأخير
    x := XLApp.ActiveCell.Row;
    // الحصول على رقم العمود الأخير
    y := XLApp.ActiveCell.Column;

    // إسناد القيم السابقة إلى الـ stringgrid
    AGrid.RowCount := x;
    AGrid.ColCount := y;

    // Assign the Variant associated with the WorkSheet to the Delphi Variant

    RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
    // حلقة لملئ الـ stringgrid بالقيم من الملف
    k := 1;
    repeat
      for r := 1 to y do
        AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R];
      Inc(k, 1);
      AGrid.RowCount := k + 1;
    until k > x;
    // تفريغ المتحول RangeMatrix 
    RangeMatrix := Unassigned;

  finally
    // إلاغلاق Excel
    if not VarIsEmpty(XLApp) then
    begin
      // XLApp.DisplayAlerts := False;
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
      Result := True;
    end;
  end;
end;

// يمكنك الان اللجوء للـ Button ليكمل عنك 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Xls_To_StringGrid(StringGrid1, 'C:\Table1.xls') then
    ShowMessage('Table has been exported!');
end;

//----------------

المبرمج عماد ............ B) B)

// تحديث سطح المكتب

uses
  ShlObj;

procedure RefreshDesktop1;
begin
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

procedure RefreshDesktop2;
var
  hDesktop: HWND;
begin
  hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
    'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
  PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
  PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

//--------------

المبرمج عماد ......... B) B)

// الان أنقل مجموعة السجلات إلى ملف الـ Excel

uses DB;

  private
    procedure SendToExcel(aDataSet: TDataSet);


uses
  ComObj, ActiveX, Excel2000; // or Excel97

procedure TForm1.SendToExcel(aDataSet: TDataSet);
var
  PreviewToExcel: TExcelApplication;
  RangeE: Excel2000.Range; 
  I, Row: Integer;
  Bookmark: TBookmarkStr;
begin
  PreviewToExcel := TExcelApplication.Create(Self);
  PreviewToExcel.Connect;
  PreviewToExcel.Workbooks.Add(NULL, 0);
  RangeE := PreviewToExcel.ActiveCell;

  for I := 0 to aDataSet.Fields.Count - 1 do
  begin
    RangeE.Value := aDataSet.Fields.DisplayLabel;
    RangeE := RangeE.Next;
  end;

  aDataSet.DisableControls;
  try
    Bookmark := aDataSet.Bookmark;
    try
      aDataSet.First;
      Row := 2;
      while not aDataSet.EOF do
      begin
        //Write down Record As Row in msExcel
        RangeE := PreviewToExcel.Range['A' + IntToStr(Row), 'A' + IntToStr(Row)];
        for I := 0 to aDataSet.Fields.Count - 1 do
        begin
          RangeE.Value := aDataSet.Fields.AsString;
          RangeE := RangeE.Next;
        end;
        aDataSet.Next;
        Inc(Row);
      end;
    finally
      aDataSet.Bookmark := Bookmark;
    end;
  finally
    aDataSet.EnableControls;
  end;

  RangeE := PreviewToExcel.Range['A1', chr(64 + aDataSet.Fields.Count) + IntToStr(Row - 1)];

  RangeE.AutoFormat(8, NULL, NULL, NULL, NULL, NULL, NULL);
  PreviewToExcel.Visible[0] := True;
  PreviewToExcel.Disconnect;
end;
// الان استخدم الـ Button
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendToExcel(Table1);
end;

المبرمج عماد .......... B) B) B)

// الان أنقل مجموعة السجلات إلى ملف الـ Excel

uses DB;

  private
    procedure SendToExcel(aDataSet: TDataSet);


uses
  ComObj, ActiveX, Excel2000; // or Excel97

procedure TForm1.SendToExcel(aDataSet: TDataSet);
var
  PreviewToExcel: TExcelApplication;
  RangeE: Excel2000.Range; 
  I, Row: Integer;
  Bookmark: TBookmarkStr;
begin
  PreviewToExcel := TExcelApplication.Create(Self);
  PreviewToExcel.Connect;
  PreviewToExcel.Workbooks.Add(NULL, 0);
  RangeE := PreviewToExcel.ActiveCell;

  for I := 0 to aDataSet.Fields.Count - 1 do
  begin
    RangeE.Value := aDataSet.Fields.DisplayLabel;
    RangeE := RangeE.Next;
  end;

  aDataSet.DisableControls;
  try
    Bookmark := aDataSet.Bookmark;
    try
      aDataSet.First;
      Row := 2;
      while not aDataSet.EOF do
      begin
        //Write down Record As Row in msExcel
        RangeE := PreviewToExcel.Range['A' + IntToStr(Row), 'A' + IntToStr(Row)];
        for I := 0 to aDataSet.Fields.Count - 1 do
        begin
          RangeE.Value := aDataSet.Fields.AsString;
          RangeE := RangeE.Next;
        end;
        aDataSet.Next;
        Inc(Row);
      end;
    finally
      aDataSet.Bookmark := Bookmark;
    end;
  finally
    aDataSet.EnableControls;
  end;

  RangeE := PreviewToExcel.Range['A1', chr(64 + aDataSet.Fields.Count) + IntToStr(Row - 1)];

  RangeE.AutoFormat(8, NULL, NULL, NULL, NULL, NULL, NULL);
  PreviewToExcel.Visible[0] := True;
  PreviewToExcel.Disconnect;
end;
// الان استخدم الـ Button
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendToExcel(Table1);
end;

المبرمج عماد .......... B) B) B)

// إطبع ملف الـ Excel

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: OLEVariant;
begin
  // Create an Excel instance
  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Workbooks.Open('C:\test\xyz.xls');
    // you can also modify some settings from PageSetup
    ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;
    // Print it out
     ExcelApp.Worksheets.PrintOut;
  finally
    // Close Excel
    // Excel wieder schliessen
    if not VarIsEmpty(ExcelApp) then
    begin
      ExcelApp.Quit;
      ExcelApp := Unassigned;
    end;
  end;

end;

//---------------

المبرمج عماد ....... B) B) B)