Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизПути Найти похожие ветки
← →
Biorobot (2002-04-21 16:06) [8]
function TForm1.GettingWinDirectory: string;
var
Len: Cardinal;
pStr: PChar;
begin
pStr:=nil;
Len:=256;
try
pStr:=StrAlloc(Len);
GetWindowsDirectory(pStr,Len);
Result:=pStr;
finally
if pStr<>nil then StrDispose(pStr);
end;
end;
Вот так получаешь директорию винды.
Потом делаешь Copy(Form1.GettingWinDirectory, 1, 2);{Первая буква пути директотрии - это диск}
Если нужен доступ к файлу пишешь:
AssignFile(Copy(Form1.GettingWinDirectory, 1, 2)+":\Dos\aaaa.txt",F);
{Незабудь обьявить F:Textfile);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c