向delphi的大侠赐教

来源：百度知道编辑：UC知道时间：2024/06/21 07:47:05

dephi报错
unable to write to C:\Documents and Settings\Administrator\桌面
程序代码如下求高手赐教

unit Unit1;

interface

uses
Windows, shlobj, IniFiles, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
ini:TIniFile;
s:string;
ss:string;
pitem:PITEMIDLIST;

procedure TForm1.FormCreate(Sender: TObject);

begin
shGetSpecialFolderLocation(handle,CSIDL_DESKTOP,pitem);
setlength(s,100);
shGetPathFromIDList(pitem,pchar(s));
ss:=s+'1.url';
ini:=TIniFile.Create(ss);

而直接用 ini:=TIniFile.Create('C:\Documents and Settings\Administrator\桌面\1.

shGetSpecialFolderLocation(handle,CSIDL_DESKTOP,pitem);
setlength(s,100);
shGetPathFromIDList(pitem,pchar(s));
ss:=IncludeTrailingPathDelimiter(s)+'1.url';//我改了这一行
ini:=TIniFile.Create(ss);

把ss，showmessage出来看看是不是有问题

把分给我吧。

var
ini:TIniFile;
s:string;
ss:string;
pitem:PITEMIDLIST;

procedure TForm1.FormCreate(Sender: TObject);
begin
shGetSpecialFolderLocation(handle,CSIDL_DESKTOP,pitem);
setlength(s,MAX_PATH);
shGetPathFromIDList(pitem,pchar(s));
SetLength(s, StrLen(PChar(s)));
ss:=s+'\1.txt';
ini:=TIniFile.Create(ss);
ini.WriteString('test', 'hehe', 'is a test');
end;

create只是建立对象，并不写文件.
你的失误在于:
1) 你连接字符串造文件名的时候没有截取和加斜杠
2) 你没有写东西

有关DELPHI的问题请各位赐教有个很严重的问题,大侠赐教! 升级AGP的显卡!赐教大侠向本本的大侠请教在Delphi界面下完成字母向二进制的转化我想找一本比较好上手的学delphi的书，谢谢赐教请各位大侠赐教求各位大侠赐教: 关于QQ宠物的几个问题，请懂行的大侠赐教。向有炒股经验的大侠请教！！！