Скачать: CL | DM;

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

← →
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;


---

← →
evvcom ©   (2006-01-18 09:16) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.1 c