открытие каталога в дкльфи

[grom333]

На timage прописал:

WinExec('antivir', SW_SHOW)

не работает, хотя

WinExec('proga.exe', SW_SHOW)

работает.
Я так понял не поддерживает открытие каталогов. Еще читал про shellexecute но там слишком запутано. Так чем лучше пользоваться, чтобы открыть каталог (папку)?

[Пепел Феникса]

всмысле открыть каталог то?

чтоб открылась нужная папка то пишем

uses ShellAPI;

procedure OpenFolder(Path:string);
begin
ShellExecute(0,nil,'explorer.exe',PChar(Path),PChar(Path),SW_SHOW);
end;

[grom333]

Сообщение от Пепел Феникса

всмысле открыть каталог то?

чтоб открылась нужная папка то пишем

uses ShellAPI;

procedure OpenFolder(Path:string);
begin
ShellExecute(0,nil,'explorer.exe',PChar(Path),PChar(Path),SW_SHOW);
end;

что-то не понял про

procedure OpenFolder(Path:string);

мне надо для timage прописать

[Stilet]

мне надо для timage прописать

Всмысле? TImage не работает с каталогами.

[grom333]

тогда на speedbutton

[ОДИНОЧЕСТВО В СЕТИ]

в событии onClick компонента
пиши

OpenFolder(path);

где path переменная типа String, содержащая путь к папке, которую надо открыть

[Stilet]

Ты яснее можешь выражаться?
Если тебе нужно чтоб каталок открылся по клику компонента, то пропиши ту процедуру в событии клика.

[grom333]

теперь совсем запутался, вот так не открывает

procedure TForm1.SpeedButton1Click(Sender: TObject);
var  Path:string;
begin
ShellExecute(0,nil,'antivir',PChar(Path),PChar(Path),SW_SHOW);
end;

если чтото писать вместо path то он ругается, и зачем 2 раза нужен PChar(Path)?

[ОДИНОЧЕСТВО В СЕТИ]

ShellExecute(0,nil,'antivir',PChar(Path),PChar(Path),SW_SHOW);

найдите разницу между вашим и вот этим

ShellExecute(0,nil,'explorer.exe',PChar(Path),PChar(Path),SW_SHOW);

[grom333]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

ShellExecute(0,nil,'antivir',PChar(Path),PChar(Path),SW_SHOW);

найдите разницу между вашим и вот этим

ShellExecute(0,nil,'explorer.exe',PChar(Path),PChar(Path),SW_SHOW);

разницу нашел... но скорее всего я бы не написал вместо исходного explorer.exe мою папку, если бы знал куда написать путь.