| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать autorun в Делфи? [D5, WinME]
Dekabrist © (2002-11-03 23:21:00)Собственно вопрос прозвучал в заголовке. Помогите новичку в мире программирования!
Dekabrist (2002-11-07 17:35:00) [1]Большое спасибо!!! Обязательно Замылю.. Иходник тоже интересен.
Вам тоже удачи...в продолжениях!
Евген (2002-11-06 19:32:00) [2]Дак я не пойму в чем проблема? Про сам файл на 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-06 19:14:00) [3]Мда...я здесь себя идиотом чувствую. НЕумею я делать программы на Делфи. Вот и раздобыл его (Д) штоб научиться. Думал что мож ето не так сложно. В смысле мнеб САМЫЙ ПРОСТОЙ. Я даже ФОРМУ немогу сделать. делаю её, а кнопки [x] и [] не исчезают и ОК , и ОТМЕНА неработают блин... Паскаля плохо знаю.
drpass (2002-11-05 18:34:00) [4]>Dekabrist
Авторан - это самая обычная программа. Какую программу ты напишешь и кинешь на компакт (и укажешь в autorun.inf), такой авторан и будет. Ты программы не умеешь писать, или что?
TuZ (2002-11-05 17:58:00) [5]При записи на CD записываешь файл autorun.inf, в котором прописываешь 3 строчки:
[autorun]
open=\Директория\ТвояПрограмма.exe
icon=ИмяФайлаЗначка.ico,
где Директория - путь к твоему файлу на CD;
ИмяФайлаЗначка - файл, в котором содержится значок: этот значок будет иконкой этого CD.
Нету тута больших сложностей...
Alex4444444444 (2002-11-05 17:13:00) [6]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.
F1 (2002-11-05 16:21:00) [7]А вообще что именно-то непонятно???
И что ты подразумеваешь под словом авторан???
Поставь вопрос более корректно и точно, и тебе обязательно ответят!!!
Incognito (2002-11-05 16:20:00) [8]Чего Вам в 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:18:00) [9]Ну тогда ты бы еще спросил как на Делфи программу написать :(
Ручками!!!
Dekabrist (2002-11-05 16:13:00) [10]Дык прикол то в том, что я незнаю как авторан на Делфи сделать .. Как сделать так штоба он запустилсято я знаю.(в смысле про inf).
F1 (2002-11-04 13:47:00) [11]Смотри Autorun.inf на любом CD с автозапуском, и делай по тлму же принципу, а на чем писать разницы нет, это ведь обычная програмка.
Ru (2002-11-04 13:37:00) [12]пиши autoran.inf на любом музыкальном компакте есть или на игровом пример.
этот авторан будет запускать твой ехе который будет автораном.
Dekabrist (2002-11-04 13:28:00) [13]Всяко Для cd.Можно и для тряна, но как то пока этим не занимаюсь. Может быть потом...
Юрий Зотов (2002-11-03 23:32:00) [14]Для CD имеется в виду? Или для трояна?
Вы уж уточните, пожалуйста, какой ответ Вам нужен.
| |
