Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   TakeOwn (https://www.delphipraxis.net/18605-takeown.html)

Luckie 21. Mär 2004 23:35


TakeOwn
 
TakeOwn gewährt dem Administrtor Zugriff auf eine besitzerlose Datei. Als Vorlage diente mir das gleichnamige Beispiel aus dem SDK von Micorsoft.

Download: http://www.luckie-online.de/Downloads/TakeOwn1_0.zip [17 KB]

Matze 22. Mär 2004 15:02

Re: TakeOwn
 
Mal ne ganz blöde Frage: Was ist eine besitzerlose Datei? :gruebel:

Beim Programmstart kommt immer:

Zitat:

Fehler: Es wurde keine Datei angegeben.
:?

Daniel 22. Mär 2004 15:05

Re: TakeOwn
 
@Matze:
Wenn eine Konsolenanwendung sowas sagt, dann will sie das geforderte Datum in 9 von 10 Fällen als Parameter erhalten.
Und ein Blick in Luckies Source bestätigt dies.

@Luckie: Ein Label! Du hast ein Label genutzt. :roteyes: Wie konntest Du nur? ;-)

Matze 22. Mär 2004 15:08

Re: TakeOwn
 
In den Code hab ich geschaut, aber ich hab soviel von dem Code verstanden, wie von php. :mrgreen:

Danke.

Ein label, cool, hab das bis jetzt nur in QBAsic verwendet. Ich dachte, sowas wäre dann schlecht programmiert, aber Luckie macht das doch eigentlich nie...

Naja, er war wohl :drunken: :mrgreen:

mirage228 22. Mär 2004 15:13

Re: TakeOwn
 
Zitat:

Zitat von Daniel
@Luckie: Ein Label! Du hast ein Label genutzt. :roteyes: Wie konntest Du nur? ;-)

Steht in der OH nicht, dass die veraltet und schlechter Programmierstil sind? :gruebel:

Ah, moment...
Zitat:

Zitat von OH
Im Sinne eines guten Programmierstils sollten goto-Anweisungen so sparsam wie möglich eingesetzt werden. In bestimmten Fällen bieten sie sich aber an, um eine verschachtelte Schleife zu verlassen. Dazu ein Beispiel: [...]

mfG
mirage228

Luckie 22. Mär 2004 16:11

Re: TakeOwn
 
Zitat:

Zitat von Matze
Mal ne ganz blöde Frage: Was ist eine besitzerlose Datei? :gruebel:

Mach mal folgendes, nimm dir eine Datei auf einer NTFS Partition. Dann rufst du über das Kontextmenü die Eigenschaften auf und wechselst zu Sicherheitseinstellungen. Dort entfernst du alle Besitzer der Datei. Beim letzten wird dir Windows ins Gesicht springen aber egal einfach bestätigen. Dann versuch die Datei zu öffnen, was nicht gehen wird, da du keine Berechtigung dazu hast. Mit meinem Tool kannst du jetzt wieder der Datei "jeder" als Besitzer zu ordnen und dann die Datei öffnen und weiteren Sicherheitseinstellungen vornehmen. Könnte man auch so machen, aber wenn der Administrator nicht die Rechte aktiviert hat, die Datei zu übernehmen, muss man sich sich erst geben und das ist eventuell etwas umständlich.

Zu dem wollte ich eigentlich nur wissen, wie es geht und ob ich das mit Delphi hinbekomme.

Zitat:

Beim Programmstart kommt immer:

Zitat:

Fehler: Es wurde keine Datei angegeben.
:?
Ich dachte die fehlermeldung wäre deutlich genung, was da los ist. :roll:


Zu den goto's: In diesem Fall halte ich sie für gerechtfertigt, um Code zu sparen. Desweiteren ist das Label klar benannt, so dass man sehen sollte, was da passiert.

MathiasSimmack 22. Mär 2004 17:27

Re: TakeOwn
 
Zitat:

Zitat von Daniel
Wenn eine Konsolenanwendung sowas sagt, dann will sie das geforderte Datum in 9 von 10 Fällen als Parameter erhalten.
Und ein Blick in Luckies Source bestätigt dies.

:shock: Luckie, was machst du bloß? (@Daniel: ;))

Daniel 22. Mär 2004 17:33

Re: TakeOwn
 
@Mathias:
Ich meinte es im folgenden Sinne:

Zitat:

Zitat von Wörterbuch
Da|tum <n.; -s, -ten> 1 bestimmter Zeitpunkt; die Daten der Weltgeschichte; Daten aus dem Leben eines Künstlers 2 Angabe eines Tages nach dem Kalender; Datum des Poststempels; unter dem heutigen Datum; welches Datum haben wir heute? 3 <meist Pl.> Tatsache, Angabe 4 <Informatik; Pl.> Daten Informationen über Größen u. Werte [lat., Part. Perf. zu dare „geben”]

Und ab morgen kann ich mich endlich um die Suchtags kümmern.

Aber nun bitte wieder on topic. ;-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz