al parecer aun hay un poblema no llega a compilar la varible desktop no puede ser definida como text, la cambie a string y el error paso a la linea con el siguiente desktop
podrias darle una mirada, no entiendo como manipular al archivo o variable desktop dentro de la procedure
Código Delphi
[-] Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
Procedure DefineIcon(Path, IconFile: string; IconIndex: Integer = 0);
end;
var
Form1: TForm1;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
DefineIcon('E:\Administrador\Mis documentos', 'E:\Administrador\Mis documentos\Nueva carpeta\Project1.exe');
End;
procedure Tform1.DefineIcon(Path, IconFile: string; IconIndex: Integer = 0);
var
Desktop: text;// aqui se detiene.
begin
Path := Path + '\Desktop.ini';
AssignFile(Desktop, Path);
ReWrite(Desktop);
WriteLn(Desktop, '[.ShellClassInfo]');
WriteLn(Desktop, 'IconFile=' + IconFile);
WriteLn(Desktop, 'IconIndex=' + IntToStr(IconIndex));
CloseFile(Desktop);
end;
end.
Ojala no se llege a complicar
, gracias y saludos cHackAll .....