хотел бы узнать, как я могу встроить свой пункт в контекстное меню любого файла, а также директории (Win, естественно). Находил, что эта проблема решается 2-мя способами через COM и через реестр. Допустим, я сделаю это. Как потом мне обработать нажатие этого пункта меню? Дальше. Если я просто сделаю вместо контекстного меню, вариант открытия файла(любого) с помощью моей программы (Открыть с помощью… -> моя программа) как мне передать в запускающуюся МОЮ программу имя этого файла? (читать всё…)

(читать всё…)

как узнать какие программы в автозапуске и вывести их в memo? (читать всё…)

Написал свой вариант: http://dl.dropbox.com/u/201788/Projects/AutorunReg.pas

Как использовать:
1а. Положить модуль в папку с программой.
либо
1б. Положить модуль в любое место и в проекте использовать Project/Add to project.
2. Подключить модуль в uses: (читать всё…)

(читать всё…)

Нужно средствами делфи выполнить следующее действие:

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432 Node\Microsoft\Windows NT\CurrentVersion\Windows]
«AppInit_DLLs»=»»
«LoadAppInit_DLLs»=dword:00000000
(читать всё…)

Stilet:

Примерно так:
Код:

program Project1;

{$APPTYPE CONSOLE}

uses windows, SysUtils;
var hk:HKEY;
begin
   if RegOpenKey(HKEY_CURRENT_USER,’\Identities’,hk)=ERROR_SUCCESS then
     RegSaveKey(hk,’c:\temp\hk.reg’,nil);
   RegCloseKey(hk);
{ TODO -oUser -cConsole Main : Insert code here }
end.

Тема на форуме

procedure TForm1.FormCreate(Sender : TObject);
var reg : TRegistry;
begin
   reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CLASSES_ROOT;
   reg.OpenKey(’.txt’, true);
   reg.WriteString(”,’txtfile’);
   reg.CloseKey;
   reg.CreateKey(’txt’+’DeDoK’;
   reg.OpenKey(’txtfile\DefaultIcon’, true);
   reg.WriteString(”,Application.ExeName+’,0′);
   reg.CloseKey;
   reg.OpenKey(’txtfile\shell\open\command’,true);
   reg.WriteString(”,Application.ExeName+’”%1″‘);
   reg.CloseKey;
   reg.Free;
end;

Тема на форуме

uses Registry;

var
   Reg: TRegistry;
   Count: Integer;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   Reg.OpenKeyReadOnly(’\Software\Microsoft\Windows\CurrentVersion\Run’);
   Reg.GetValueNames(Memo1.Lines);
   for Count := 0 to Memo1.Lines.Count -1 do
     Memo1.Lines.Strings[Count] := Memo1.Lines.Strings[Count] + ‘ : ‘
     + Reg.ReadString(Memo1.Lines.Strings[Count]);
   Reg.Free;
end;

Посмотреть тему на форуме