dosyanın çalışıp çalışmadığının kontrolü.

[uince]

O anda dosyanın devrede olup olmadığını kontrol etmek için ne gibi bir yönteme başvurmalıyım?

[serkan]

dosyadan kastın nedir..Bir programın çalışıp çalışmadığınamı bakacaksın yoksa bir word,excel v.s gibi bir belgenin açık olup olmadığınamı?

[uince]

Windows Görev Yöneticisinde bir dosyasının olup olmadığının kontrolünü yaptırmak istiyorum.Örneğin mario.exe dosyası görev yönetisinde varmı yokmu?Varsa o anda çalışıyor yoksa çalışmıyordur gibi..

[bulu]

Kod: Tümünü seç

function EnumWindowsProc(Wnd: HWND; List: TStrings): Boolean; stdcall;
var
  ParentWnd: HWND;
  ExStyle: DWORD;
  Caption: array [0..255] of Char;
begin
  if IsWindowVisible(Wnd) then 
  begin
    ParentWnd:=GetWindowLong(Wnd,GWL_HWNDPARENT);
    ExStyle:=GetWindowLong(Wnd,GWL_EXSTYLE);
    if ((ParentWnd=0) or (ParentWnd=GetDesktopWindow)) and
       ((ExStyle and WS_EX_TOOLWINDOW=0) or (ExStyle and WS_EX_APPWINDOW<>0)) and
        (GetWindowText(Wnd,Caption,SizeOf(Caption))>0) then
      List.AddObject(Caption,Pointer(Wnd));
  end;
  Result:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc,Integer(ListBox1.Items));
end;

Kodları [ code ] [ /code] içinde yazalım. rsimsek

[sadettinpolat]

Kod: Tümünü seç

function IsFileInUse(FileName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  HFileRes := CreateFile(PChar(FileName),
                         GENERIC_READ or GENERIC_WRITE,
                         0,
                         nil,
                         OPEN_EXISTING,
                         FILE_ATTRIBUTE_NORMAL,
                         0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(HFileRes);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsFileInUse('c:\Programs\delphi6\bin\delphi32.exe') then
    ShowMessage('File is in use.');
  else
    ShowMessage('File not in use.');
end;

[poshet303]

O anda dosyanın devrede olup olmadığını kontrol etmek için ne gibi bir yönteme başvurmalıyım?

Denmiş. Açıklama istenince,

Windows Görev Yöneticisinde bir dosyasının olup olmadığının kontrolünü yaptırmak istiyorum.

Denmiş.
Kafam allakbullak oldu. Windows görev yöneticisi devrede olan (ne demekse) dosyaların listesini mi tutuyor ki?


@sadettinpolat arkadaşımızın verdiği kod nefis. Benim niye bu yöntem aklıma gelmediki dedim şahsen.