Форум: "Прочее";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];
ВнизПапка 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]
> umbramywindir := 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;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.01 c