Как определить директорию %windir%?

[Romany4]

Как, используя ShellExecute, запустить диспетчер задач, не зная пути до
system32?
К примеру, обычно это директория c:\windows\system32, а что если
у пользователя d:\winxp\system32?

[A_r_r_a_y]

так выполните просто taskmgr

[Romany4]

Спасибо, думал без пути не запустится.
А если всё же использовать путь до файла?

[uberchel]

То такая функция:

Function System32: string;
var
  T: Cardinal;
  Dir: array[0..255] of AnsiChar;
begin
 Result:= 'Unknown';
 GetSystemDirectory(Dir, T);
 Result:= Dir;
end;

[Romany4]

uberchel, спасибо, что-то вроде этого я уже встречал, но не знаю как использовать переменную Dir в ShellExecute для записи полного пути до файла.
Сейчас это у меня выглядит так:

ShellExecute(Handle, nil, 'taskmgr.exe', nil, nil, SW_SHOW);

Я только изучаю программирование, поэтому пока почти ничего не знаю.

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

[uberchel]

Эта функция получения системной директории System32 и свойство у неё String(строковое)!

Function System32: string;
var
  T: Cardinal;
  Dir: array[0..255] of AnsiChar;
begin
 Result:= 'Uknown';
 GetSystemDirectory(Dir, T);
 Result:= Dir;
end;

Применение:

ShellExecute(Handle, 'open', Pchar(System32 + '\taskmgr.exe'), nil, nil, SW_SHOW);

[Romany4]

uberchel, а так не запускается.

[uberchel]

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

uberchel, а так не запускается.

А у тебя ОС какая? У меня все запускаться, вот пример, что функция работает:

procedure TForm1.Button1Click(Sender: TObject);
Function System32: string;
var
  T: Cardinal;
  Dir: array[0..255] of AnsiChar;
begin
 Result:= 'Unknown';
 GetSystemDirectory(Dir, T);
 Result:= Dir;
end;
begin
 Text:= System32;
end;

При нажатии на кнопку в названии форы будет путь к System32 !

[Romany4]

uberchel, WINXP у меня. Вот код:

program Project2;

uses
  Registry, windows, shellapi;

{$R *.res}

var
reg: TRegistry;
Instance: HWnd;
Handle: HWnd;
//îïðåäåëåíèå system32 <-----
Function System32: string;
var
  T: Cardinal;
  Dir: array[0..255] of AnsiChar;
begin
 Result:= 'Unknown';
 GetSystemDirectory(Dir, T);
 Result:= Dir;
end;
//----->
begin
reg:= TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
reg.WriteInteger('DisableTaskMgr', 0);
reg.CloseKey;
ShellExecute(Handle, 'open', Pchar(System32 + '\taskmgr.exe'), nil, nil, SW_SHOW);
reg.Free;

end.

Мож я не так что написал?

[Stilet]

Мож я не так что написал?

Function System32: string; отрабатывает нормательно.