jars gracias por la ayuda, y disculpa pero es que no soy la gran cosa en delphi, lo que queria saber, es como hiria declarado o el orden el que debe llevar por ejemplo, el orden de un archivo vendria siendo:
Cita:
unit UPrincipal;
interface
uses
....
type
.....
private
//Aqui todos los metodos privados
public
//Aqui todos los metodos publicos
|
//y aqui debajo de todo eso yo pongo tu codigo igualito como me dijiste
//Este public, supongo va en el apartado de public, debajo de private
Cita:
public
constructor Create(AOwner: TComponent); override;
//==================================================================================================== ==================
constructor TfrmPrincipal.Create(AOwner: TComponent);
//==================================================================================================== ==================
type
PHWND = ^HWND;
var
createerror: DWORD;
FHMapObject: Integer;
begin
FHMapObject := CreateFileMapping(
$FFFFFFFF, // use paging file
nil, // no security attributes
PAGE_READWRITE, // read/write access
0, // size: high 32-bits
1, // size: low 32-bits
PChar('Nombre_de_tu_programa')); // name of map object
createerror := GetLastError;
if FHMapObject = 0 then
begin
MessageDlg(Format('CreateFileMapping=$%x', [createerror]),
mtError, [mbOK], 0);
Exit;
end;
if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(FHMapObject);
MessageDlg('Ya hay una instancia ejecutandose', mtError, [mbOK], 0);
Application.Terminate;
Halt;
end;
Inherited;
end;
|
y mas abajo sigue
Cita:
var
frmPrincipal: TfrmPrincipal;
implementation
uses //todas las unidades
{$R *.dfm}
procedure TfrmPrincipal.Cerrar1Click(Sender: TObject);
begin
Close;
end;
//y todo los procedimientos ya desarrollados etc
|
seguro que yo lo estoy haciendo mal, solo espero me puedas orientar por que aun me falta mucho por aprender, o no se si hay que desarrollar algo mas al codigo, saludos y sorry por la pregunta algo tonta :S, gracias
me salen 4 errores,
1.- [DCC Error] UPrincipal.pas(64): E2004 Identifier redeclared: 'TfrmPrincipal.Create'
2.- [DCC Error] UPrincipal.pas(70): E2050 Statements not allowed in interface part (me seniala el begin, despues del constructor)
3.- [DCC Error] UPrincipal.pas(93): E2075 This form of method call only allowed in methods of derived types (me seniala el Inherited)
4.- [DCC Error] UPrincipal.pas(93): E2075 This form of method call only allowed in methods of derived types (y este es normal por que hay un error y no se puede compilar, espero me puedas echar la mano
)