Mega Code Archive
Windows dosya ozellikleri kutusunun program icinden acilmasi
<![CDATA[
uses ShellApi;
procedure ShowFileProperties(sFileName :String);
var
sei: TShellExecuteInfo;
begin
ZeroMemory(@sei, sizeof(sei));
with sei do
begin
cbSize := SizeOf(sei);
fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI;
Wnd := Form1.Handle;
lpVerb := 'properties';
lpFile := PChar(sFileName);
nShow := SW_SHOWNORMAL;
end;
ShellExecuteEX(@sei);
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowFileProperties(Edit1.Text);
end;
]]>