Папка windows

← →
lobach © (2006-05-29 18:48) [0]

Подскажите, как определить папку windows чтоб например туда файл какой-нибудь скопировать, можно конечно просто c:/windows прописать, но вдруг у пользователя windows на в лежит?
Можно как нибудь переменную определить, чтоб ёё потом использовать?
Например

winfolder:= ля ля ля;
AssignFile(f, winfolder/system/file.txt);

← →
Manic Mechanic © (2006-05-29 18:50) [1]

function WinDir: string;
var
WDir: PChar;
begin
GetMem(WDir, 144);
GetWindowsDirectory(WDir, 144);
Result:= WDir+"\";
FreeMem(WDir, 144);
end;

← →
unknown © (2006-05-29 18:53) [2]

GetWindowsDirectory + F1

← →
umbra © (2006-05-29 18:53) [3]

mywindir := GetEnvironmentVariable("windir");

← →
lobach © (2006-05-29 19:26) [4]

> umbra

mywindir := GetEnvironmentVariable("windir"); это значение, а тип string?
если какой нибудь PChar? то как его со string совмещать?
Привидите пример кода, который создаёт файл в каталоге windows/system/123.txt

← →
umbra © (2006-05-29 20:00) [5]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
FmyHandle: THandle;
{ Private declarations }
public
{ Public declarations }
property myHandle: THandle read FmyHandle write FmyHandle;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
filepath, msg: String;
fileresult: Integer;
begin
filepath := IncludeTrailingPathDelimiter(GetEnvironmentVariable("WINDIR"));
filepath := filepath + "system\123.txt";
fileresult := FileCreate(filepath);
if fileresult = -1 then
begin
msg := "Ошибка " + IntToStr(GetLastError)
end
else
begin
myHandle := fileresult;
msg := "Создан файл " + filepath;
end;
ShowMessage(msg);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if myHandle > 0 then
begin
myHandle := 0;
FileClose(myHandle);
end;
end;

end.

← →
lobach © (2006-05-29 20:29) [6]

> umbra

Ни чего ни пойму...
Код твой не работает, компилит без ошибок, но ни сообщения, ни файла нет.
Сижу голову ломаю, уже все перепробовал...

← →
umbra © (2006-05-29 20:46) [7]

> Код твой не работает, компилит без ошибок, но ни сообщения,
> ни файла нет.

в таких случаях отладчик - хороший друг и надежный товарищ

← →
Юрий Зотов © (2006-05-30 02:05) [8]

> lobach © (29.05.06 19:26) [4]

> Привидите пример кода, который создаёт файл в каталоге
> windows/system/123.txt

А зачем создавать файлы в каталоге windows/system?

Трояны-вирусы ваяем?

← →
Defunct © (2006-05-30 02:08) [9]

> Трояны-вирусы ваяем?

нет, баги винды правим, незадорого :)

← →
lobach © (2006-05-30 07:21) [10]

> Трояны-вирусы ваяем?

Нет, файл под системный маскируем, пишем туда то, что юзеру видеть не надо, но сейчас не об этом...

← →
Игорь Шевченко © (2006-05-30 10:12) [11]

> Нет, файл под системный маскируем, пишем туда то, что юзеру
> видеть не надо

тебе, уважаемый, прямиком на хакеп.ру

← →
tesseract © (2006-05-30 10:20) [12]

> Нет, файл под системный маскируем, пишем туда то, что юзеру
> видеть не надо, но сейчас не об этом...

а назначить атрибут "системный" слабо ???

← →
Defunct © (2006-05-30 15:47) [13]

tesseract © (30.05.06 10:20) [12]
> а назначить атрибут "системный" слабо ???

И шо это будет?

← →
tesseract © (2006-05-30 16:25) [14]

> И шо это будет?

user его не увидит.

← →
antonn © (2006-05-30 17:23) [15]

tesseract © (30.05.06 16:25) [14]
user его не увидит.
а может и увидит:)

Не знаю, как у ХР, а у МЕ в Msdos.sys все прописано :)))))))))

oldman © (30.05.06 17:33) [16]
МЕ - это такая Миллениум эдишн? аж мурашки по коже поползли... :) НЕ ДА БОГ Я ЕЕ ЕЩЕ РАЗ УВИЖУ!
:))

> antonn © (30.05.06 17:48) [17]

Стояла года 3 - ни одного сбоя. До этого стояла 98SE - тоже года 3 и тоже ни одного сбоя.

Что милениум, что 98, да и 95 в отличии от xp вообще почти не летают.
P.S.
Поздравьте меня, я сегодня вступительный экзамен в технарь по алгебре на 5 сдал!!!

> Юрий Зотов © (30.05.06 17:56) [19]

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

Папка windows Найти похожие ветки