-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
21. Jul 2004
Jetzt muss er sich nur die beste Funktion aussuchen... also meine :D
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
OK, vergesst meinen Code und macht, was ihr denkt... Aber meine Kompetenz stellt man nur einmal in Frage... ;)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Das hatte ich aber nicht bezwecken wollen... das try..except ist nicht zum Schutz da, sondern zum Übergeben von Resultaten.
Wenn jemand meine Kompetenz auf diese fiese, hinterlistige und falsche Weise in Frage stellt, kann ich sehr sehr böse werden!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
DU hast Unrecht! Ich hatte nie vor, die Ressource zu schützen, zumindest nicht in dem Quellcode...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Feinfein... werde ich mir angewöhnen... Ich hab bis jetzt nie Variablen freigegeben, da meine Programme nicht allzu groß wurden...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Na ihr könnt Zufälle absichern, die gibt es gar nicht ;)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Dann erzähl mir, wie du es schaffen willst, diese Funktion zum crashen zu bringen... Da bin ich ja mal gespannt...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Es ist ja schön, dass du das machst, aber in diesem Fall ist es einfach UNNÖTIG!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Dann erzähl mir mal, wo hier ein Fehler auftreten soll, der s1.free überspringt?
function TForm1.CreateAutorunFile(app, icon, destfile: String): boolean;
var
sl: TStringList;
begin
result:=true;
sl:=TStringList.create;
sl.add('');
sl.add('OPEN='+app);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Das ist doch Schwachsinn. Was sollen die ersten 3 Zeilen in einem try? Wenn, dann so:
function TForm1.CreateAutorunFile(const App, Icon, DestFile: String): Boolean;
var
sl: TStringList;
begin
Result := False;
sl := TStringList.create;
sl.add('');
sl.add('OPEN=' + App);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
20. Jul 2004
Warum hast du das in einer try-Klausel? Daran kann doch nix schief gehen...
function TForm1.CreateAutorunFile(app, icon, destfile: String): boolean;
var
sl: TStringList;
begin
result:=true;
sl:=TStringList.create;
sl.add('');
sl.add('OPEN='+app);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
19. Jul 2004
Denkste! Lass mal die Datei so heißen: 'C:\test\test.inf.txt' Du musst schon dafür sorgen, dass das .inf hinten ist... höchstens so:
if Pos('.inf', destfile)<length(destfile)-4 then destfile:=destfile+'.inf';
function TForm1.createautorunfile(app : String; icon : String; destfile : String):boolean;
var
sl : TStringList;
begin
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
19. Jul 2004
function TForm1.createautorunfile(app : String; icon : String; destfile : String):boolean;
var
sl : TStringList;
begin
result:=true;
try
sl:=TStringList.create;
sl.add('');
sl.add('OPEN=' + app);
sl.add('ICON=' + icon);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
19. Jul 2004
function TForm1.createautorunfile(app : String; icon : String; destfile : String):boolean;
var
sl : TStringList;
begin
result:=true;
try
sl:=TStringList.create;
sl.add('');
sl.add('OPEN=' + app);
sl.add('ICON=' + icon);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
19. Jul 2004
nirgends, wenn du sie nur happy nennst
Nebenbei habe ich die richtige Funktion schon lange oben gepostet!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Rackergen2,
19. Jul 2004
Da es eine Funktion ist, brauchst du auch ein Result, was du initialisieren musst, ansonsten empfehle ich dir das:
procedure happy(app : String; icon : String; destfile : String);
begin
ShowMessage('Anwendung = '+app+#10#13+'Icon = '+icon+#10#13+'Ausgabedatei = '+destfile);
end;
edit: außerdem hast du in der Titelzeile ein ; zuviel...
edit2: außerdem fängst du nach der icon-Variable...