Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Преобразование пути к файлу, из Win формата в Dos 
V
    Опции темы
Burka
Дата 30.7.2007, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 429
Регистрация: 11.5.2007

Репутация: нет
Всего: 2
Подскажите как преобразовать виндовский путь типа:
Код

c:\my documents\my program\1.exe

в досовский путь типа:
Код

c:\mydocu~1\myprog~1\1.exe

Есть какие нибудь стандартные процедуры или API?


--------------------
Великие умы обсуждают идеи; средние умы обсуждают события; мелкие умы обсуждают людей.
PM MAIL   Вверх
Rennigth
Дата 30.7.2007, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Код

GetShortPathName

наверно


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
dumb
Дата 30.7.2007, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158
ExtractShortPathName
PM MAIL   Вверх
Burka
Дата 30.7.2007, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 429
Регистрация: 11.5.2007

Репутация: нет
Всего: 2
Код

procedure TForm1.Button1Click(Sender: TObject);
 Var shortname :PAnsiChar;
     lengt :cardinal;
begin

lengt:=GetShortPathName(PChar(Edit1.text),shortname,255);
Edit1.Text:=shortname;

end;

выдает что-то типа такого:
Код

S‹Ш‹ГиМ

чего я делаю не так?))

Добавлено через 3 минуты и 53 секунды
dumb, у меня ExtractShortPathName возвращает пустую строку постоянно


--------------------
Великие умы обсуждают идеи; средние умы обсуждают события; мелкие умы обсуждают людей.
PM MAIL   Вверх
Rennigth
Дата 30.7.2007, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Вот так у меня нормально отработало.
Код

var
  lLongPath: PAnsiChar;
  lShortPath: Pointer;
  lSize: Integer;
begin
  lShortPath := nil;
  lLongPath := 'C:\Documents and Settings\Alexandr_bks\Мои документы\Borland Studio Projects';
  lSize := GetShortPathName(lLongPath, lShortPath, 0);
  if lSize > 0 then
  begin
    lShortPath := GetMemory(lSize);
    try
      GetShortPathName(lLongPath, PChar(lShortPath), lSize);
      Caption := PChar(lShortPath);
    finally
      FreeMemory(lShortPath);
    end;
  end;
end;


Сори за извращения с выделением памяти, но что-то без этого AV после выполнения функции лезло... :(

Это сообщение отредактировал(а) Rennigth - 30.7.2007, 12:46


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Alexeis
Дата 30.7.2007, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Способ плох тем что пути берет прям с харда, если хард не хранит такого пути или этот путь вообще чужой, то ничего не выйдет.
  Если без изврата то так  smile 
Код

procedure TForm1.FormCreate(Sender: TObject);
var
  lLongPath  : AnsiString;
  lShortPath : AnsiString;
begin
  lShortPath := '';
  SetLength(lShortPath, MAX_PATH);
  lLongPath  := 'C:\Documents and Settings\Alexeis.VOTUM\Мои документы\Алгоритмы\БПФ\fft_src';
  GetShortPathName(@lLongPath[1], @lShortPath[1], MAX_PATH);
end;


Добавлено через 3 минуты и 24 секунды
Борланд выдал еще круче  smile 
Код

function ExtractShortPathName(const FileName: string): string;
var
  Buffer: array[0..MAX_PATH - 1] of Char;
begin
  SetString(Result, Buffer,
    GetShortPathName(PChar(FileName), Buffer, SizeOf(Buffer)));
end;


Это сообщение отредактировал(а) Alexeis - 30.7.2007, 13:42


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Burka
Дата 30.7.2007, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 429
Регистрация: 11.5.2007

Репутация: нет
Всего: 2
Alexeis, теперь ясно в чем проблема, спасибо.
Пользоваться буду ExtractShortPathName  )), что б совсем без извращений.


Это сообщение отредактировал(а) Burka - 30.7.2007, 14:20


--------------------
Великие умы обсуждают идеи; средние умы обсуждают события; мелкие умы обсуждают людей.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0505 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.