excel sayfası açık mı?

[y.kulac]

s.a.
excel sayfasına bilgi aktarıyorum. aşağıdaki kod ile sabit bir excel belgesini açıyorum. kodum şöyle

Kod: Tümünü seç

excel:= CreateOleObject('Excel.Application');   //Exceli aç
excel.visible:=True;  //Exceli aktif yap
excel.Workbooks.Open('C:\PROKURS\Formlar\Belge.xls');  //isimli exceli aç
sayfa:=excel.workbooks[1].worksheets[1];

ben excel belgesini açmadan önce kontrol yapmak istiyorum.
eğer sayfa açıksa bilgileri aktarsın. açık değilse açıp aktarsın. açık değilse zaten yukarıdaki kod ile açıp işlemi yaptırıyorum. kodu her çalıştırdığımda yeniden excel uygulaması başlatıyor. bu şekilde onlarca excel uygulaması ayrı ayrı çalışmış oluyor. ben bir tane excel uygulaması açılsın istiyorum.
neler öenerirsiniz.
iyi çalışmalar.

[kadirkurtoglu]

Kod: Tümünü seç

uses
Tlhelp32;

Kod: Tümünü seç

Function KillTask(Dosyadi: String): Integer;
const
PROCESS_TERMINATE=$0001;
var
devam: BOOL;
fyakhandle: THandle;
islem32: TProcessEntry32;
begin
result := 0;

fyakhandle := CreateToolhelp32Snapshot
                     (TH32CS_SNAPPROCESS, 0);
islem32.dwSize := Sizeof(islem32);
devam := Process32First(fyakhandle,
                                 islem32);

  while integer(devam) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(islem32.szExeFile)) =
         UpperCase(Dosyadi))
     or (UpperCase(islem32.szExeFile) =
         UpperCase(Dosyadi))) then
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL(0),
                        islem32.th32ProcessID), 0));
    devam := Process32Next(fyakhandle,  islem32);
  end;
  CloseHandle(fyakhandle);
end;

Kullanılışı

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('EXCEL.EXE');
end;