[Delphi] Автозапуск

[Рамик]

Подскажите самый прстой способ добавления моего приложения в автозапуск?
заранее спасибо

[zotox]

Погугли... Информации полно на эту тему

[uberchel]

Держи, но прежде старайся пользоваться поиском!

uses Registry;
...
var
 R: TRegistry;
begin
 R:= TRegistry.Create;
 R.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run\',false);
 R.WriteString(Text, ParamStr(0));
 R.CloseKey;
 R.Free;
end;

[Рамик]

Сообщение от uberchel

Держи, но прежде старайся пользоваться поиском!

uses Registry;
...
var
 R: TRegistry;
begin
 R:= TRegistry.Create;
 R.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run\',false);
 R.WriteString(Text, ParamStr(0));
 R.CloseKey;
 R.Free;
end;

спасибо.
в какой процедуре это прописывать?

...и еще..знаю вопрос не по теме, просто не хочется засорять форум...
как выбрать случайную строку в listbox'e?

[Вавел из ГМТУ]

1. В любой процедуре, где захочешь.
2. Randomize, Random.

[Рамик]

Сообщение от Вавел из ГМТУ

1. В любой процедуре, где захочешь.
2. Randomize, Random.

parol:=random(listbox1.Count);
proba:='cmd /c net user ';
pass:=listbox1.Items[parol];
name:=rec+' ';
insert(name,proba,17);
i:=length(proba);
insert(pass,proba,i+1);
winexec(PChar(proba),SW_Hide);

Что тут не правильно?

[uberchel]

...и еще..знаю вопрос не по теме, просто не хочется засорять форум...
как выбрать случайную строку в listbox'e?

Label1.Caption:= ListBox1.Items[random(360)];

[Вавел из ГМТУ]

Что тут не правильно?

Если честно, то мне трудно даже сказать, что там правильно

Что вобще надо было получиться в результате и неплохобы указывать типы переменых.

[Рамик]

Сообщение от uberchel

Держи, но прежде старайся пользоваться поиском!

uses Registry;
...
var
 R: TRegistry;
begin
 R:= TRegistry.Create;
 R.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run\',false);
 R.WriteString(Text, ParamStr(0));
 R.CloseKey;
 R.Free;
end;

жалуется на эту строку...

R.WriteString(Text, ParamStr(0));

[zotox]

Сообщение от Рамик

жалуется на эту строку...

R.WriteString(Text, ParamStr(0));

Исходники вашего проекта в студию... Щас потестил все нормально пишется/запускается