2 вопроса

[W0LF]

spamer спс, сработало...

А как например добавить весу к exe, после чего, что бы он работал?

[spamer]

Вот посмотри это, может и поможет:

_http://forum.hackzona.ru/forum-f16/demexepumper-t15382.html
_http://www.rsdn.ru/forum/winapi/258242.all.aspx

Ну вот я только что увеличил размер ехе таким образом и программа работает отлично(для этого отдельный проект создашь):

var f : TFileStream;
begin
f := TFileStream.Create('Project.exe', fmOpenWrite);
f.Size := f.Size + 100024*100;
f.Free;

з.ы. помог - жми весы

[W0LF]

Помогите, выбивает ошибку:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read of address 00000000'. Process stopped. Use Step or Run to continue.

Появляеться после того как я нажму на кнопку:

var
  f,s:TStringList;
  Year,Month,Day,Hour,Minute,Second:word;
begin
  f:=TStringList.Create;
  s:=TStringList.Create;
  f.Delimiter:='.';
  f.DelimitedText:=DateToStr(dtp1.Date);
  s.Delimiter:=':';
  s.DelimitedText:=TimeToStr(dtp1.time);
  Year:=StrToInt(f[2]);
  Month:=StrToInt(f[1]);
  Day:=StrToInt(f[0]);
  Hour:=StrToInt(s[0]);
  Minute:=StrToInt(s[1]);
  Second:=StrToInt(s[2]);
  SetTime(Form1.FileName.Caption,Year,Month,Day,Hour,Minute,Second);
  s.Clear;
  f.Clear;
  end;

И выдилело строку:

SetTime(Form1.FileName.Caption,Year,Month,Day,Hour,Minute,Second);

Функция SetTime:

var
  CreateTime: PFileTime;
  FileHandle: THandle;
  SystemTime: _SYSTEMTIME;
begin

  FileHandle:=FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
    with SystemTime do begin
    wYear := Year;
    wMonth := Month;
    wDay := Day;
    wHour := Hour;
    wMinute := Minute;
    wSecond := Second;
    end;
    SystemTimeToFileTime(SystemTime,CreateTime^);

    SetFileTime(FileHandle,CreateTime,nil,nil);
    FileClose(FileHandle);
    Dispose(CreateTime);
end;

[Alex Cones]

Кто такие

Year:=StrToInt(f[2]);
  Month:=StrToInt(f[1]);
  Day:=StrToInt(f[0]);
  Hour:=StrToInt(s[0]);
  Minute:=StrToInt(s[1]);
  Second:=StrToInt(s[2]);

Сделайте трассировку и посмотрите их значения.
И проверьте, может файл занят.

[W0LF]

это простые переменные, лень было писать:

SetTime(Form1.FileName.Caption,StrToInt(f[2]),StrToInt(f[1]),StrToInt(f[0]),StrToInt(s[0]),StrToInt(s[1]),StrToInt(s[2]),)

значения им я и даю из массива TStringList'a, после разделения из одной строки:

f.DelimitedText:=DateToStr(dtp1.Date);
s.DelimitedText:=TimeToStr(dtp1.time);

Файл может и использоваться, если написать вместо переменных конкретные числа, то значение измениться, а если брать из переменных - ошибка

[Alex Cones]

Ну дык я и говорю:

Сделайте трассировку и посмотрите их значения.

[W0LF]

переменные имеют правильное значение, но нужны для процедуры переменные типа word, а я из string перевожу в integer

[artemavd]

 SetTime(Form1.FileName.Caption,Year,Month,Day,Hour,Minute,Second);

А случаем не так должно быть:

SetFileTime(Form1.FileName.Caption,Year,Month,Day,Hour,Minute,Second);

????