Как сделать autorun в Делфи?

← →
Dekabrist (2002-11-03 23:21) [0]

Собственно вопрос прозвучал в заголовке. Помогите новичку в мире программирования!

← →
Юрий Зотов (2002-11-03 23:32) [1]

Для CD имеется в виду? Или для трояна?
Вы уж уточните, пожалуйста, какой ответ Вам нужен.

← →
Dekabrist (2002-11-04 13:28) [2]

Всяко Для cd. Можно и для тряна, но как то пока этим не занимаюсь. Может быть потом...

← →
Ru (2002-11-04 13:37) [3]

пиши autoran.inf на любом музыкальном компакте есть или на игровом пример.
этот авторан будет запускать твой ехе который будет автораном.

← →
F1 (2002-11-04 13:47) [4]

Смотри Autorun.inf на любом CD с автозапуском, и делай по тлму же принципу, а на чем писать разницы нет, это ведь обычная програмка.

← →
Dekabrist (2002-11-05 16:13) [5]

Дык прикол то в том, что я незнаю как авторан на Делфи сделать .. Как сделать так штоба он запустилсято я знаю.(в смысле про inf).

← →
F1 (2002-11-05 16:18) [6]

Ну тогда ты бы еще спросил как на Делфи программу написать :(

Ручками!!!

← →
Incognito (2002-11-05 16:20) [7]

Чего Вам в CD-AutoRune не понятно, я не понял.
Для трояна если, то так:
var
AutoRun : TRegIniFile;
begin
ExePath:=Application.ExeName;
{AutoRun:=TRegIniFile.Create("Software\Microsoft\Windows\CurrentVersion");
AutoRun.WriteString("Run","Trojan",ExePath);
AutoRun.Free;

← →
F1 (2002-11-05 16:21) [8]

А вообще что именно-то непонятно???
И что ты подразумеваешь под словом авторан???
Поставь вопрос более корректно и точно, и тебе обязательно ответят!!!

← →
Alex4444444444 (2002-11-05 17:13) [9]

autorun.inf - prosto textovyj file, delphi zdes" ne pri chem.
V nem ukazana programma (na CD!), kotoruyu nuzhno zapustit".
Eto---lyubaya programma, napisannaya na chem ugodno (v t.ch., na Delphi) i delayushaya to, chto Vy hotite.

← →
TuZ (2002-11-05 17:58) [10]

При записи на CD записываешь файл autorun.inf, в котором прописываешь 3 строчки:
[autorun]
open=\Директория\ТвояПрограмма.exe
icon=ИмяФайлаЗначка.ico,
где Директория - путь к твоему файлу на CD;
ИмяФайлаЗначка - файл, в котором содержится значок: этот значок будет иконкой этого CD.
Нету тута больших сложностей...

← →
drpass (2002-11-05 18:34) [11]

>Dekabrist
Авторан - это самая обычная программа. Какую программу ты напишешь и кинешь на компакт (и укажешь в autorun.inf), такой авторан и будет. Ты программы не умеешь писать, или что?

← →
Dekabrist (2002-11-06 19:14) [12]

Мда...я здесь себя идиотом чувствую. НЕумею я делать программы на Делфи. Вот и раздобыл его (Д) штоб научиться. Думал что мож ето не так сложно. В смысле мнеб САМЫЙ ПРОСТОЙ. Я даже ФОРМУ немогу сделать. делаю её, а кнопки [x] и [] не исчезают и ОК , и ОТМЕНА неработают блин... Паскаля плохо знаю.

← →
Евген (2002-11-06 19:32) [13]

Дак я не пойму в чем проблема? Про сам файл на CD который запустит твою прогу очень полно написал
> TuZ ©
, а текст твоей проги, которая, например будет запускать произвольные файлы при нажатии на кнопку может быть примерно такой:

unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi; type TShell = class(TForm) ButtonMap: TButton; ButtonVisio: TButton; Memo1: TMemo; Memo2: TMemo; procedure ButtonMapClick(Sender: TObject); procedure ButtonVisioClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Shell: TShell; implementation {$R *.dfm} procedure TShell.ButtonMapClick(Sender: TObject); begin ShellExecute(Application.MainForm.Handle, nil, Pchar("vcmurbas.new\VCMURBAS.EXE"), nil, nil, SW_ShowNormal); end; procedure TShell.ButtonVisioClick(Sender: TObject); begin ShellExecute(Application.MainForm.Handle, nil, Pchar("CAD""s\Shell.exe"), nil, nil, SW_ShowNormal); end; end.
Если и так непонятно - тогда мыль, брошу исходник.

P.S. Удачи в начинаниях!

← →
Dekabrist (2002-11-07 17:35) [14]

Большое спасибо!!! Обязательно Замылю.. Иходник тоже интересен.
Вам тоже удачи...в продолжениях!

Как сделать autorun в Делфи? Найти похожие ветки