Способ нахождения дир. 'Temp' -> Форум на Исходниках.Ру

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

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

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

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

Способ нахождения дир. 'Temp' , из Delphist's FAQ

Rouse_

Сообщ. #1 , 07.09.05, 08:41

Moderator

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

type

function GetLongPathNameA(lpszShortPath, lpszLongPath: PChar;

cchBuffer: DWORD): DWORD; stdcall external kernel32;

...

procedure TForm1.Button2Click(Sender: TObject);

var

ShortPath, LongPath: array[0..MAX_PATH - 1] of Char;

begin

if GetTempPath(MAX_PATH, @ShortPath[0]) > 0 then

if GetLongPathNameA(ShortPath, @LongPath[0], MAX_PATH) > 0 then

ShowMessage(String(LongPath));

end;

Автор: Rouse_

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

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

[ Script execution time: 0,0210 ] [ 16 queries used ] [ Generated: 2.05.24, 12:42 GMT ]