[НичеНепониаю]

Нужны следующие коды под кнопку:

перезагрузка компьютера
открытие/закрытие дисковода
удаление файла по определенному пути
Запуск пограммы при загрузки винды


Вобщем все)))

Просто хочется сделать программу управления компом )))

Но только для OnButtomClick там и т.п.
И не говорите что есть подобные исходники на сайте т.к. там пишет ошибки при перезагрузке и т.п.

[4erep_88]

http://delphisources.ru/forum/showthread.php?t=3391
Я тебе уже рекомендовал книгу, в которой все это есть. Глянь хотя бы содержание...

[НичеНепониаю]

Сообщение от 4erep_88

http://delphisources.ru/forum/showthread.php?t=3391
Я тебе уже рекомендовал книгу, в которой все это есть. Глянь хотя бы содержание...

Я скачал книгу, спасиб за совед но там немножко на старую делфи и немножко не то то надо. Про управление компьютером там нет. (по дисководы, перезагрузку и т.п.)

[Dimanus]

Пример в автозагрузку
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run', false);
reg.WriteString('Имя', Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;

Открыть CD
mciSendString('Set cdaudio door open wait',nil, 0, Form1.Handle);

закрыть соответствено Closed

Для перезагрузки я обычно целую процедуру пишу, их можно в нэте найти и вообще там всё можно найти если поискать.

[4erep_88]

Сообщение от НичеНепониаю

Про управление компьютером там нет. (по дисководы, перезагрузку и т.п.)

А я говорю, что все это есть.

Dimanus, не обязательно писать сложную процедуру. За нас уже многое Microsoft написала. Главное - правильно запустить

Код:

var windir:array[0..255]of char;
begin
GetWindowsDirectory(windir,255);
ShellExecute(Application.Handle,PChar('open'),PChar(windir+'\system32\shutdown.exe'),PChar('-r -t 0 -f'),nil,sw_hide);