Create a new GUID using FreePascal

最新推荐文章于 2025-05-24 11:52:09 发布

原创最新推荐文章于 2025-05-24 11:52:09 发布 · 573 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#freepascal #wildcard #output

算法同时被 2 个专栏收录

8 篇文章

订阅专栏

Pascal

2 篇文章

订阅专栏

本文介绍了如何使用FPC编程语言创建全局唯一标识符（GUID），并通过GNU Make工具进行项目构建。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

fpc32-2.24 source.

{

}

{$IFDEF FPC}
{$MODE OBJFPC}
{$ENDIF}
{$APPTYPE CONSOLE}
program guid;

uses
  sysutils;

var
  gg: TGuid;
  gs: string;

begin
  gs := '{00000000-0000-0000-0000-000000000000}';

  if CreateGUID(gg) = S_OK then 
    gs := GUIDToString(gg);

  WriteLn(gs);
end.

gnu-make

# test project for passcal
# created by perry. 11/03/2011 Thu
#

PC := fpc

ifndef OUT
OUT :=AA.exe
endif

.SUFFIXES:
.SUFFIXES: .pp .o

.PHONY: all

all: ${OUT} clean_temp

src := $(wildcard ${CURDIR}*.pp)
obj := $(addsuffix .o, $(basename ${src}))

${OUT} : ${src}
	${PC} ${PFLAGS} -o$@ $<


# remove all output files.
.PHONY: clean_all
clean_all: clean_temp clean_out


# remove all temp files.
.PHONY: clean_temp
clean_temp:
	gecho ${.VARIABLES} ${DESTDIR}
	if exist *.o del *.o


# remove target file.
.PHONY: clean_out
clean_out:
	if exist ${OUT} del ${OUT}