Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

Папка 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 его не увидит.

а может и увидит:)


 
oldman ©   (2006-05-30 17:33) [16]

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


 
antonn ©   (2006-05-30 17:48) [17]

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


 
oldman ©   (2006-05-30 17:52) [18]


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


Имхо, это Ваши проблемы...
:)))))))))))))


 
Юрий Зотов ©   (2006-05-30 17:56) [19]

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

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


 
stone ©   (2006-05-30 17:58) [20]


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

Значит ты что-то не правильно делал :))


 
lobach ©   (2006-05-30 18:00) [21]

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


 
oldman ©   (2006-05-30 18:27) [22]


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


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



Страницы: 1 вся ветка

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх




Память: 0.52 MB
Время: 0.052 c
2-1149422375
JTAG
2006-06-04 15:59
2006.06.25
Господа подскажите пожалуйста как сделать чтобы в таблицу


10-1119950348
VladR
2005-06-28 13:19
2006.06.25
IHTMLDocument2 извлечение ссылок с кирилличными символами


1-1147971259
hgd
2006-05-18 20:54
2006.06.25
RichEdit


15-1148872897
DmiSb
2006-05-29 07:21
2006.06.25
Можно ли уменьшить размер vcl50.bpl ,


15-1149071072
konda
2006-05-31 14:24
2006.06.25
Реферат по химии на английском языке.