Tak for hjælpen - det fungerer fint!
Mvh. Flozzy
<nic@aub.dk> skrev i en meddelelse
news:1176205843.425269.4710@o5g2000hsb.googlegroups.com...
On 9 Apr., 09:44, "Flozzy" <j...@venlig.dk> wrote:
> "Uffe Kousgaard" <o...@no.no> skrev i en
> meddelelsenews:4619e0b1$0$2103$edfadb0f@dtext02.news.tele.dk...
>
> > "Flozzy" <j...@venlig.dk> wrote in message
> >news:461885fc$0$935$edfadb0f@dread12.news.tele.dk...
> >> Hej
>
> >> Jeg har en mappe med personlige oplysninger, banknøgler etc., som jeg
> >> gerne vil skjule for andre brugere. Er det muligt vha. kode at skjule
> >> den
> >> på en nem måde?
>
> > Hvis det kun er én mappe, hvorfor så alt det besvær med programmering?
> > Det
> > kan gøres ved at sætte et flueben fra windows explorer.
>
> Ja, det er selvfølgelig rigtigt, men det der undrede mig var, om det kunne
> gøres vha. WinAPI, eller ved at ændre en værdi i registreringsdatabasen,
> eller om der skulle være en procedure/function specielt til formålet.
> Indtil
> videre bruger jeg fluebenet
.
>
> Mvh. Flozzy
Programmet til at gøre det fra DOS hedder "attrib" og det kan du
kalder vha ShellExecute eller ShellExecuteEx.
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'attrib.exe', '+h c:\test.txt', nil,
SW_SHOWNORMAL) ; // skjuler filen
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'attrib.exe', '-h c:\test.txt', nil,
SW_SHOWNORMAL) ; // viser filen igen
end;