Запись в риестр

← →
Vavan © (2006-01-17 21:22) [0]

модуль regestru подключил
Выдает ош что делать
внизу
unit Unit1;

interface

uses
Windows,Registry, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
procedure WMEndSession(var Msg:TWMEndSession);
message WM_ENDSESSION; { Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\RunOnce",
True) then
begin
Reg.WriteString("MyApp",""" + ParamStr(0) + """);
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;

end;

end.

Выд ошыбку что делать
[Error] Unit1.pas(24): Declaration of "WMEndSession" differs from previous declaration

← →
з. танька (2006-01-17 21:51) [1]

{$R *.dfm} procedure TForm1.WMEndSession(var Message: TWMEndSession); var Reg: TRegistry; begin
замени на Msg

вообще когда пишут
"Declaration of ... differs from previous declaration"
значит заголовок процедуры ... в описании и реализации разный, а надо чтобы одинаковый был, вот...

← →
Кефир87 © (2006-01-17 22:41) [2]

Или ваще напиши
procedure TForm1.WMEndSession; var Reg: TRegistry;

Запись в риестр Найти похожие ветки