[Interface]

У меня такой вопрос как сделать так чтобы моя прога сама запускалась при включении компа?

[Interface]

А теперь о "Другом" почему у меня во всех прогах кнопочки старые и не интересные, квадратные? А в нормальных (скаченных с этого же сайта) они красивые с подсветкой как обычно в Windows XP?

[Interface]

Как програмно (руками не трогая мышки) двигать курсор?

[Winny]

Сообщение от Interface

У меня такой вопрос как сделать так чтобы моя прога сама запускалась при включении компа?

В поиске по форуму набери "Автозапуск", будет куча тем, в одной из них я уже отвечал на этот вопрос.

[Winny]

Сообщение от Interface

А теперь о "Другом" почему у меня во всех прогах кнопочки старые и не интересные, квадратные? А в нормальных (скаченных с этого же сайта) они красивые с подсветкой как обычно в Windows XP?

С помощью манифеста XP. Если у тебя стоит версия выше 6, то на вкладке Win32 будет компонент XPManifest. Кинь его на форму, всё, готово. Если же у тебя версия ниже 6 или 6, то я постараюсь найти у себя на винте файл манифеста, ты его потом переименуешь в projectname.exe.manifest. Если же я его не найду, то придётся будет его написать (этот манифест) самому.

[Winny]

Люди, читайте правила. Ты нарушил два пункта правила: написал в одной теме больше одного вопроса и не искал в поисковике Яндекс по ключевым словам ответ на вопрос №3. Простой запрос: "как программно двигать курсор delphi". Вот ссылка: http://itby.ru/content/view/1924/40/. Вот код:

Код:

var 
  pt : TPoint; 
begin 
   Application.ProcessMessages; 
   Screen.Cursor := CrHourglass; 
   GetCursorPos(pt); 
   SetCursorPos(pt.x + 1, pt.y + 1); 
   Application.ProcessMessages; 
   SetCursorPos(pt.x - 1, pt.y - 1);

[The Shadow]

Про манифест: добавь в файл проекта строчку

Код:

{$R WindowsXP.res}

[Interface]

Нашел ответ на свой вопрос про автозапуск . Но из него вытек второй вопрос как сделать так что бы программа (в которой было сделано то ,что писалось про автозапуск) больше не запускалась при старте Windows.

[Winny]

Функцией DeleteKey удали ключ. Если сам не сможешь разобраться, подгоняй код, поправлю немного его и будет работать обратно - на отключение автозапуска

[The Shadow]

А разве нельзя записать ключ в
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\RunOnce
вместо
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run
?

[жекаизжека]

Код:

procedure TForm3.Button1Click(Sender: TObject);
var
 Reg:TRegIniFile;
begin
if Form3.CheckBox1.Checked then
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run','button','C:\Program Files\Кнопка\button.exe');
Reg.Free;
end
else
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Run','button');
Reg.Free;
end;
close;
 end;
end.

у меня автозагрузка продолжаеться может я не правильно прописал парамтр DeleteKey
можете поправить

[жекаизжека]

Reg.DeleteKey('Software\Microsoft\Windows\CurrentV ersion\Run','button');

может помочь, что тут не хватает..??