Получение полного и короткого пути -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.133.153.110]

Дорогие друзья! Поздравляем вас с Новым 2025 годом!

Всем удачи, успеха и благополучия!

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

кодировка VFAT

Получение полного и короткого пути

Rouse_

Сообщ. #1 , 31.01.06, 09:38

Moderator

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 320

P.O.D, круто

Но вот так, думаю, будет попроще:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

end;

function GetLongPathNameA(lpszShortPath, lpszLongPath: PChar;

cchBuffer: DWORD): DWORD; stdcall; external kernel32;

var

Form1: TForm1;

implementation

{$R *.dfm}

function ExpandFileName(Path: String): String;

begin

SetLength(Result, MAX_PATH);

if GetLongPathNameA(PChar(Path), @Result[1], MAX_PATH) = 0 then

RaiseLastOSError;

Result := Trim(Result);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

S: String;

begin

// Получаем полное имя

S := ExpandFileName('C:\DOCUME~1\');

ShowMessage(S);

// Получаем урезанное имя

GetShortPathName(PChar(S), PChar(S), MAX_PATH);

ShowMessage(S);

end;

end.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0213 ] [ 16 queries used ] [ Generated: 15.01.25, 05:50 GMT ]