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.
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;