Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.059 c
6-1129028584
DelphiN!
2005-10-11 15:03
2006.02.05
Проверка доступности интернета(через прокси)


15-1137105313
Ricks
2006-01-13 01:35
2006.02.05
Нашел паяльник!


3-1133462062
Сергей А.
2005-12-01 21:34
2006.02.05
Как поймать ошибку при загрузке данных из таблицы?


15-1136835961
ArtemESC
2006-01-09 22:46
2006.02.05
Философский вопрос...


2-1137354521
mctarik
2006-01-15 22:48
2006.02.05
Запуск приложения, только один раз за сеанс Windows!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский