Archive for the ‘Delphi’ Category

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
HFile: Word;
MyDate: TDateTime;
MyDate2: Integer;
begin
HFile:=FileOpen(Edit1.Text, fmOpenWrite);
MyDate:=StrToDateTime(Edit2.Text);
MyDate2:=DateTimeToFileDate(MyDate);
FileSetDate(HFile, MyDate2);
FileClose(HFile);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
if SetFileAttributes(PChar(Filename), FILE_ATTRIBUTE_HIDDEN) then
Caption:=’attribute was changed’
else
Caption:=’attribute was not changed’;
end;

function ReverseString(const s: string): string;
var
i, len: Integer;
begin
len := Length(s);
SetLength(Result, len);
for i := len downto 1 do
begin
Result[len - i + 1] := s[i];
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
l: DWORD;
begin
l := GetWindowLong(Self.Handle, GWL_STYLE);
l := l and not (WS_MINIMIZEBOX);
l := l and not (WS_MAXIMIZEBOX);
l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (fsModal in FormState) then
ShowMessage(’Form is modal.’);
end;