[Timur]

Господа,недавно задался вопросом о написании autorun.exe-файл,который открывается,когда мы вставляем диски в компьютер.

Поскольку в нормальных,человеческих,средах программить не умею,то я решил найти в инете прогу на Delphi. Вот она.

При запуске возникает ошибка в процедуре SpeedButton1Click,там,где начинается описание переменных.

Что это за проблема и как её исправить,скажите,пожалуйста! Также с удовольствием услышу другие варианты программы

Comments

[Dr.Nail]

А что за ошибка? Ошибка компилятора или уже Runtime Exception?



Но как вариант:



procedure TForm1.SpeedButton1Click(Sender: TObject);

var

dir: array of char;

name: PAnsiChar;

begin

name:= 'cd.exe';

setLength(dir, 256);

GetCurrentDirectory(Length(dir), dir);

ShellExecute(Application.Handle, 'open', name, nil, dir, SW_SHOWNORMAL);

ShowWindow(Form1.Handle, SW_SHOWMINIMIZED);

SetLength(dir, 0);

end;

end.

[Timur]

Neiru

первая программа внезапно пошла



В вашей обнаружились такие вот ошибки:

[Error] Unit1.pas(34): Incompatible types: 'Array' and 'Char'

[Error] Unit1.pas(35): Incompatible types: 'Array' and 'Char'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'



34ая строка это GetCurrentDirectory(Length(dir), dir);

[Dr.Nail]

Timur проверить негде было, на коленке писал =)

[Timur]

Neiru спасибо! не сочтите за наглость,а как убрать с появляющегося окна верхнюю строку,где там:свернуть, развернуть и крестик.

[Dr.Nail]

Timur BorderIcons как сейчас помню. Это если надо сами кнопки убрать. А если вообше заголовок окна снести, то BorderStyle = bsNone

[Timur]

Neiru ура! спасибо

[Dr.Nail]

Timur есть ещё хорошие функции CreateRgn (если не ошибаюсь) и иже с ней. Читай Win32 Programmer's Reference. Очень занимательные вещи позволяют делать.

[Lacrua]

Могу предложить альтернативу на Visual Basic

[Timur]

Neiru почитаю,спасибо!



Lacrua нет,спасибо,с VB не сталкивался и не собираюсь как то,пока что