Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];
Вниз
Запись в риестр Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c
