usar lockfile and unlockfile
 

Hola, estoy tratando de usar estas funciones de la api ... pero no me chutan ... a ver si me podeis echar algun cable ... ya que a esta profundidad me pierdo

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 hFile: THandle;
 Sof: Longint;
begin
try
 hFile := CreateFile(pchar(edit1.text),0,0,nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
 Sof := GetFileSize(hFile,nil);
 if UnlockFile(hFile,0,0,Sof,0) then
   showmessage ('Unlock CONSEGUIDO!!!!')
 else
   showmessage ('Unlock no conseguido');
 CloseHandle(hFile);
except
    showmessage ('Ha ocurrido un error al intentar hacer el unlock');
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  edit1.Text := OpenDialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
 hFile: THandle;
 Sof: Longint;
begin
try
 hFile := CreateFile(pchar(edit1.Text),0,0,nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
 Sof := GetFileSize(hFile,nil);
 if LockFile(hFile,0,0,Sof,0) then
   showmessage ('Lock CONSEGUIDO!!')
 else
   ShowMessage('Lock no conseguido');
Except
  showmessage ('Ha ocurrido un error al intentar hacer el lock')
  end;
end;
end.

muchas gracias.

Si revisas en la sección de ejemplos de mi página (mirror), hace tiempo que programé un par de aplicaciones que muestran el uso de las APIs LockFile y UnlockFile.

El ejemplo de titula "API LockFile para detectar instancias de aplicación activas en red" y muestra cómo aprovechar las características de bloqueo de ficheros ara detectar instancias activas de una aplicación.

Está el código fuente, así que puedes revisarlo, cambiarlo, recompilarlo,... (delphi6)

Jo tio que velocidad ....
 

Ya tenia el ejemplo de tu pagina .... y lo he revisao antes ... pero es q no lo veo muy claro .... :D, pero ahora mismo lo vuelvo a pillar ...

Un saludo

Yo tambien queria ver como usar el Lock y el Unlock... Peeeero las paginas de usuarios y el wiki ya ni estan funcionando.

Y ahora que, como le hago???

Pues basta con que escribas aquí...:D:D:D
Hay un problema con la página original, pero puedes encontrar esa entrada y el ejemplo aquí.