Jump to content

limelect

Members
 View Profile  See their activity

  • Content Count

    775

  • Joined

  • Last visited

  • Days Won

    1

Posts posted by limelect

  1. Posted · Edited by limelect

    OK guys thanks I did succeed BUT with some tricks

    Now how can I find the handle of a file,(locked file), not a process

    All CREATE do not help some give me errors others -1

     

    I do not want to go through all the process or handles it take time

     

  4. Posted · Edited by limelect

    P.S To us professionals clear the lock condition is important as we know what we are doing

    50 years in the business !!!!!!!!!!!!!!!! actually lost count

  5. Posted · Edited by limelect

    FD and SQLite  But this is not important as it is one example of many.

    I have to close programs often as they lock files needed to change

    I use the above program to do that so I can keep working on a program locking a file

    The above program Unlocker by Cedrick Collomb is excellent but is not that friendly so 

    I wanted to do my own

     

    P.S/ some time the lock condition stay even if you close the application associated wit the file

     

  8. Posted

    Unlocker by Cedrick Collomb is an excellent program
    It unlocks a file by releasing the unlock situation  without closing the process
    The program DOES NOT CLOSE (from lock situation) THE PROCESS ONLY THE FILE
    most other sources in C and Delphi close the process (exe) which I do not want.

    What I achieved
    I know if a file is locked - detect all locked files in a folder
    I know the process name (which I do not want to kill) that locks the file
    I use RmStartSession  RmRegisterResources  RmGetList for process name detection

    What I want is to release the link between a process and the locked file
    All sources in C and Delphi I have seen, close the process
    This is the easy way of doing things.
    This is not what I want.

    If you can help thanks

     

    P.S There is a source in Delphi that does not work

  11. Posted · Edited by limelect

    No they all work with this Windows 7. With no problems

    All I say is that Drag and Drop does not work under

    above conditions in the IDE.

    Neither the message problem work on D7

    which mean that there is a System problem interacted with  Delphi IDE

  12. Posted

    I do not know if this help

    The problem of drag and drop (I did not check for messages)

    Persist with D7 too.

    Drage and Drop does not work on D7 either.

    Only outside of Delphi.

    So it is Windows 7 ported to ANY Delphi.

    Any idea how to check this?

     

    \

  16. Posted · Edited by limelect

    @Remy Lebeau @Anders Melander as i said on my D10.2.3  IDE nothing works as for drop

    As for my basic demo, I did exactly the suggestion no !!!! breakpoint in ide

    how ever message works with exe

    as for the analyzer I cannot drop either in ide or exe

     

    I doubt that I can be helped. it has something to do with

    my d10.2.3 and my Windows 7 system I guess.

     

    One more option is that a component I install does the problem

    But since I have large amount it is impossible to find which.

    OR an expert?

     

    Thanks

  19. Posted · Edited by limelect

    D10.2.3 window 7

    I have had this problem for many years I wonder if there is a solution

    The program does not break on message in the IDE

    However, running the execution it works.

    P.S I see the + sign on the form when dragging a file wile in the IDE

          Drag and Drop do not work either

     

    I saw David Heffernan solution, but it did not help.

    https://stackoverflow.com/questions/14244325/drag-and-drop-files-to-delphi-form-not-working

     

    Any help?

     

    .

    unit Unit1;

    interface

    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
        System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, ProCtrls, Vcl.StdCtrls;

    type
      TForm1 = class(TForm)
        procedure FormDestroy(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    uses
      ShellAPI;

    procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
    begin
      inherited;
      MessageDlg('dssdfsd', mtWarning, [mbOK], 0);<<<<<<<<<<<<  does not break
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      DragAcceptFiles(Self.Handle, False);
      inherited;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    inherited;
      DragAcceptFiles(Self.Handle, True);
    end;
    end.
     

×