| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TShellListView [D7, Win95/98, WinME, NT4, Win2k, WinXP]
_GOG_ © (2003-03-07 06:36:00)Мастера помогите новечку.
Как програмно получить полное имя файла или папки (например записать в Label) с помощью компанента TShellListView?
Чих-пых (2003-03-10 11:26:00) [1]2 Mr. Ice:
Во-первых, речь не о файле программы, а о файлах в TShellListView.
А во-вторых, есть такая функция очень интересная - называется ExtractFilePath :)
Mr.Ice (2003-03-10 02:47:00) [2]а для папки отреж от application.ExeName количество символов в названии проги
var
a:string;
begin
a:=application.ExeName;
SetLength(a,Length(a)-x); //х это количество отрезаемых символов
например для proga.exe
var
a:string;
begin
a:=application.ExeName;
SetLength(a,Length(a)-9);
label1.caption:=a;
Mr.Ice (2003-03-10 02:44:00) [3]Можно с помощью application.ExeName;
например label1.caption:=application.ExeName;
IceMan_T (2003-03-09 12:09:00) [4]ShellListView.OnClick:
if ShellListView.SelectedFolder.IsFolder=true then
Label1.Caption := "Folder : "+
ShellListView.SelectedFolder.PathName else
Label1.Caption := "File : "+
ShellListView.SelectedFolder.PathName;
| |
