cmd.exe

[UnD)eaD)Snake]

а можно попробовать вот это,
ShellExecute(Handle, nil, 'cmd.exe', '/c '+'Cacls D:\123 /D User', nil, SW_SHOW);
потом эмулировать нажатие клавиши y, и enter;?

[Reflex]

Здравствуйте!
Простите что поднимаю достаточно древнюю тему но есть вопрос по ней.
Дело в том что сейчас пишу простенькую прогу в которой есть обращение к Коммандной строке. Так вот, мне надо чтобы в строчке
ShellExecute(Handle, nil, 'cmd.exe', '/c '+{Путь к твоей проге}, nil, SW_SHOW);

"Путь к твоей проге" можно было сформировать из самой программы. То есть у меня есть OpenDialog, так вот я хочу путь брать оттуда, + добавлять кое какие параметры. Но у меня ничего не выходит. Ругается что String и PAnsiChar несовместимый тип.
Как же сформировать путь внутри программы и вставить туда чтоб не ругалось?
Зарание спасибо!

[Alar]

Пример кода : Показ всех символов AnsiString 
var
  myString  : AnsiString;
  myCharPtr : PAnsiChar;
  i : Integer;

begin
  // Создание строки AnsiChar
  myString  := 'Hello World';

  // Указатель на первый символ в строке
  i := 1;
  myCharPtr := Addr(myString[i]);

  // Показ всех символов строке
  while i <= length(mystring) do
  begin
    ShowMessage(myCharPtr^);
    Inc(i);
    Inc(myCharPtr);
  end;
end;

http://delphibasics.ru/PAnsiChar.php

[Reflex]

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

[CODE]
Пример кода : Показ всех символов AnsiString
...

http://delphibasics.ru/PAnsiChar.php

Хм... это не совсем то... Вы видимо не до конца поняли что мне надо.
попробую показать на примере.

var
  MyStr : AnsiString;
  MyPAC : PAnsiChar;
  i: integer;
begin
  myStr:= (OpenDialog1.FileName);
  i := 1;
  MyPAC := Addr(myStr[i]);
 ShellExecute(Handle, nil, 'cmd.exe', '/k' + MyPAC, nil, SW_SHOW);
end;

Вот то что я попытался написать согласно вашей ссылке. То есть приминить к своей программе. Естественно, что неработает.
Суть не в PAnsiChar, а в ShellExecute и конкретно MyPAC в нем, то есть в том что должно быть на его месте.

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

[Alar]

var
  myString  : AnsiString;
  myCharPtr : PAnsiChar;
  i : Integer;

begin
  // Создание строки AnsiChar
  myString  := 'Hello World';

  // Указатель на первый символ в строке
  i := 1;
  myCharPtr := Addr(myString[i]);


 ShellExecute(Handle, nil, 'cmd.exe', myCharPtr, nil, SW_SHOW);

Естественно можно не один символ загонять, а несколько

myCharPtr := Addr(myString); - сделай указатель на все, а не только на первый символ.

procedure TForm1.Button1Click(Sender: TObject);
var
  myString  : AnsiString;
  myCharPtr : PAnsiChar;
  i : Integer;

begin
  // Создание строки AnsiChar
  myString  := 'Hello World';

  // Указатель на первый символ в строке
  myCharPtr := Addr(myString);


 ShellExecute(Handle, nil, 'cmd.exe', myCharPtr, nil, SW_SHOW);

 end;
end.

'Hello World' - явно тебе не хелловорл передавать надо, замени.