| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись в риестр [D7, WinXP]

Vavan ©   (2006-01-17 21:22:00) 

модуль 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

---

evvcom   (2006-01-18 09:16:00) [1]

> Кефир87 ©   (17.01.06 22:41) [2]

Лучше так не надо. Не наглядно. Имхо.

---

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

Или ваще напиши

procedure TForm1.WMEndSession;
var
Reg: TRegistry;


---

з. танька   (2006-01-17 21:51:00) [3]

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

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

---

Наверх