1-oe проверю завтра.
2-ое значение разное на разных машинах.
Как то заметил. Вот на работе при создании файла также видно его расширение.
Дома когда создаешь файл расширения нет просто вводишь имя и всё.



> Но вот еще шютка, не знаю, то ли в семерке такая, то ли
> всегда: FileExists не работает, даже после исправления кода
> на
>   SL.Text:=SL.Text+file2str(
>      sysvar_2_folder('%USERPROFILE%\Рабочий стол\'+Trim(txt)))+#13#10;
>
>


Уберите +#13#10 и будет работать



Нет файлы не линкованные. В моём случае действительно поведение именно такое.
А Desktop в упор не воспринимает, только Рабочий стол.

Тогда или проверяйте версию системы, или делайте 2 попытки - одну для Desktop, другую для Рабочий стол. Надеюсь, программа предназначена только для русской системы (иначе, я даже не знаю, как называется рабочий стол в немецком, шведском, китайском, польском... языке).

> Вот на работе при создании файла также видно его расширение.
> Дома когда создаешь файл расширения нет просто вводишь имя
> и всё.

панель управления->свойства папки->вид->скрывать расширения для зарегистрированых файлов

> В моём случае действительно поведение именно такое.
> А Desktop в упор не воспринимает, только Рабочий стол.

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
а там названия папок на любом языке

ps
с виндой для начала подружись хотябы на уровне пользователя

http://www.transl-gunsmoker.ru/2008/12/shell-folders.html - читать до конца.

Доброе время суток!

> Вот на работе при создании файла также видно его расширение.
> Дома когда создаешь файл расширения нет просто вводишь имя
> и всё.

Уважаемый всё это было написано для того чтобы сказать что не чего от себя не придумал.  

2QAZ

> панель управления->свойства папки->вид->скрывать расширения
> для зарегистрированых файлов
>...
> ps
> с виндой для начала подружись хотябы на уровне пользователя


А вопрос был такой как лучше сделать проверку скрыты расширения или нет чтобы не множить число программ для каждого случая :)

2Vladimir Kladov
Спасибо! прочитал.

SHGetSpecialFolderPath(0,pchar(buff),CSIDL_DESKTOPDIRECTORY,true);
  S:=S+#13#10+file2str(pchar(buff)+'\'+Trim(txt)+'.txt');
и
SHGetSpecialFolderPath(0,pchar(buff),CSIDL_DESKTOPDIRECTORY,true);
  S:=S+#13#10+file2str(pchar(buff)+'\'+Trim(txt));

> http://www.transl-gunsmoker.ru/2008/12/shell-folders.html
> - читать до конца.

про шелфункции я в курсе
а судя по [21] вы сами это только седня прочитали :)))


> Уважаемый всё это было написано для того чтобы сказать что
> не чего от себя не придумал.  
> А вопрос был такой как лучше сделать проверку скрыты расширения
> или нет чтобы не множить число программ для каждого случая
> :)

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

кстати примерчик ты нагуглил самый левый и работает он без гемора только потому что ты знаеш что работаеш с десктопом, а файлы *.тхт :)))
при нормальной работе с шелом былобы пофиг показывает расширение или нет и в какой папке все это находится и файл ли это или папка и т.д.

Принято. Спасибо.
Какой был на тот момент такой и нагуглил;)
Всем Спасибо:)))